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Notice 

Apple Computer, Inc. reserves the right to make improvements in the 
product described in this manual at any time and without notice. 



Disclaimer of All Warranties and Liabilities 

Apple Computer, Inc. makes no warranties, either express or implied, with 
respect to this manual or with respect to the software described in this 
manual, its quality, performance, merchantability, or fitness for any 
particular purpose. Apple Computer, Inc. software is sold or licensed "as 
is." The entire risk as to its quality and performance is with the buyer. 
Should the programs prove defective following their purchase, the buyer 
(and not Apple Computer, Inc., its distributor, or its retailer) assumes the 
entire cost of all necessary servicing, repair, or correction and any 
incidental or consequential damages. In no event will Apple Computer, Inc. 
be liable for direct, indirect, incidental, or consequential damages resulting 
from any defect in the software, even if Apple Computer, Inc. has been 
advised of the possiblity of such damages. Some states do not allow the 
exclusion or limitation of implied warranties or liability for incidental or 
consequential damages, so the above limitation or exclusion may not apply 
to you. 

This manual is copyrighted. All rights are reserved. This document may 
not, in whole or part, be copied, photocopied, reproduced, translated or 
reduced to any electronic medium or machine readable form without prior 
consent, in writing, from Apple Computer, Inc. 

© 1982 by Apple Computer, Inc. 
20525 Mariani Avenue 
Cupertino, California 95014 
(408) 996-1010 

The word Apple and the Apple logo are registered trademarks of 
Apple Computer, Inc. 

Simultaneously published in the U.S. A and Canada. 



Warning 

This equipment has been certified to comply with the limits for a 
Class B computing device, pursuant to Subpart J of Part 15 of FCC 
Rules. Only peripherals (computer input/output devices, terminals, 
printers, etc.) certified to comply with the Class B limits may be 
attached to this computer. Operation with non-certified peripherals is 
likely to result in interference to radio and TV reception. 
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Radio and Television Interference 

The equipment described in this manual generates and uses radio- 
frequency energy. If it is not installed and used properly, that is, in 
strict accordance with our instructions, it may cause interference 
with radio and television reception. 

This equipment has been tested and complies with the limits for a 
Class B computing device in accordance with the specifications in 
Subpart J, Part 15, of FCC rules. These rules are designed to 
provide reasonable protection against such interference in a 
residential installation. However, there is no guarantee that the 
interference will not occur in a particular installation, especially if 
you use a "rabbit ear" television antenna. (A "rabbit ear" antenna is 
the telescoping-rod type usually contained on TV receivers.) 

You can determine whether your computer is causing interference 
by turning it off. If the interference stops, it was probably caused 
by the computer or its peripheral devices. To further isolate the 
problem: 

• Disconnect the peripheral devices and their input/output cables 
one at a time. If the interference stops, it is caused by either 
the peripheral device or its I/O cable. These devices usually 
require shielded I/O cables. For Apple peripheral devices, you 
can obtain the proper shielded cable from your dealer. For non- 
Apple peripheral devices, contact the manufacturer or dealer 
for assistance. 

If your computer does cause interference to radio or television 
reception, you can try to correct the interference by using one or 
more of the following measures: 

• Turn the TV or radio antenna until the interference stops. 

• Move the computer to one side or the other of the TV or radio. 

• Move the computer farther away from the TV or radio. 

• Plug the computer into an outlet that is on a different circuit 
than the TV or radio. (That is, make certain the computer and 
the radio or television set are on circuits controlled by different 
circuit breakers or fuses.) 

• Consider installing a rooftop television antenna with coaxial 
cable lead-in between the antenna and TV. 



If necessary, you should consult your dealer or an experienced 
radio/television technician for additional suggestions. You may find 
helpful the following booklet, prepared by the Federal 
Communications Commission: 

"How to Identify and Resolve Radio-TV Interference Problems" 

This booklet is available from the U.S. Government Printing Office, 
Washington, DC 20402, stock number 004-000-00345-4. 
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»*01 


F8DB 


20 


4A 


F9 


251 


PRNTBL 
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SETS C0L0R=17*A MOD 16 

BOTH HALF BYTES OF COLOR EQUAL 



READ SCREEN Y-CaORD/2 
SAVE LSB (CARRY) 
CALC BASE ADDRESS 
GET BYTE 

RESTORE LSB FROM CARRY 
IF EVEN, USE LD H 



SHIFT HIGH HALF BYTE DOWN 
MASK 4-BITS 
PRINT PCL, H 



FOLLOWED BY A BLANK 
GET OPCODE 

EVEN/ODD TEST 

BIT 1 TEST 

XXXXXXll INVALID OP 

OPCODE $89 INVALID 

MASK BITS 

LSB INTO CARRY FDR L/R TEST 

GET FORMAT INDEX BYTE 
R/L H-BYTE ON CARRY 

SUBSTITUTE »S0 FOR INVALID DPS 
SET PRINT FORMAT INDEX TO 

INDEX INTO PRINT FORMAT TABLE 
SAVE FOR ADR FIELD FORMATTING 
MASK FOR 2-BIT LENGTH 



OPCODE 

MASK FOR IXXXIOIO TEST 

SAVE IT 
OPCODE TO A AGAIN 



FORM INDEX INTO MNEMONIC TABLE 

1) IXXXIOIO => OOIOIXXX 

2) XXXYYYOl => OOUIXXX 

3) XXXYYYIO => OOllOXXX 

4) XXXYYIOO => OOIOOXXX 

5) XXXXXOOO => oooxxxxx 



GEN FMT, LEN BYTES 

SAVE MNEMONIC TABLE INDEX 



PRINT 2 BLANKS 



PRINT INST (1-3 BYTES)' 
IN A 12 CHR FIELD 



CHAR COUNT FOR MNEMONIC INDEX 



RECOVER MNEMONIC INDEX 



Monitor Firmware Listing 



F8EE: 85 


2C 




FBFO: B9 


00 


FA 


F8F3: 85 


2D 




F8F5: A9 


00 




F8F7. AO 


05 




FBF9, 06 


2D 




FBFB: 26 


2C 




F8FD: 2A 






FSFE: Be 






FBFF: DO 


FB 




F901: 69 


BF 




F903; 20 


ED 


FD 


F906: CA 






F907: DO 


EC 




F909; 20 


48 


F9 


F90C: A4 


2F 




F90E: A2 


06 




F910- EO 


03 




F912; FO 


IC 




F9J4: 06 


2E 




F716; 90 


OE 




F91S: BD 


B3 


F9 


F9iB: 20 


ED 


FD 


F91E: BD 


B9 


F9 


F921; FO 


03 




F923: 20 


ED 


FD 


F926: CA 






F927: DO 


E7 




F929: 60 






F92A BS 






F92B: 30 


E7 


h 


F92D: 20 


DA 


FD 


F930: A5 


2E 




F932: C9 


E8 




F934: Bl 


3A 




F936: 90 


F2 


F 


F93B: 20 


56 


F9 


F93B: AA 






F93C: EB 






F93D: DO 


01 


F 


F93F: Ce 






F940: 98 






F941: 20 


DA 


FD 


F944; 8A 






F945: 4C 


DA 


FD 


F94S: A2 


03 




F94A: A9 


AO 




F94C: 20 


ED 


FD 


F94F: CA 






F950: DO 


F8 


F 


F952:60 






F953: 38 






F954: A 5 


2F 




F956: A4 


3B 




F958: AA 






F959: 10 


01 


F 


F95B: eS 






F95C: 65 


3A 




F95E: 90 


01 


F 


F960; C8 






F961: 60 






F962: 






F962; 






F962: 






F962: 






F962: 04 






F963: 20 






F964: 54 






F965: 30 






F966; 00 






F967: 80 






F969: 04 






F969; 90 






F96A: 03 






F96B: 22 






F96C : 54 






F96D:33 






F96E: OD 






F96F: BO 






F970: 04 






F971: 90 






F972: 04 






F973: 20 






F974: 54 






F975: 33 






F976: 00 






F977: 80 






F978: 04 






F979: 90 






F97A: 04 






F97B:20 






F97C: 54 







262 

263 

264 PRMNl 

=■65 

266 PRHN2 

267 

268 

269 

270 



273 
274 



278 PRADRl 



280 PRADR2 



287 


PRADR3 


2BB 




289 




290 


PRADR4 


291 




292 




293 


PRADR5 


294 




295 




296 




297 


RELADR 


298 




299 




300 




301 




302 


PRNTYX 


303 


PRNTAX 


304 


PRNTX 


305 




306 


"RBLNK 


307 


fRBL2 


308 


= RBL3 


309 




310 




311 




312 


^CADJ 


313 


■'CADJS 


314 


=CADJ3 


315 




316 




317 




318 


=CADJ4 


319 




320 




321 


=!TS2 


322 


FHTi 


323 


IF Y= 


324 


IF Y= 


325 




326 


=MT1 


327 




328 




329 




330 




331 




332 




333 




334 




335 




336 




337 




336 




339 




340 




341 




342 




343 




344 




345 




346 




347 




348 




349 




350 




351 




352 





STA 
LDA 
STA 
LDA 
LDV 
ASL 
ROI_ 
ROL 
DEY 
BNF 
ADC 
JSR 
DEX 
ENE 
JSR 
LDY 
LDX 
CPX 



LDA 
JSR 
LDA 
BEG 
JSR 
DEX 
BNF 
RTS 
DEY 
EMI 
JSR 
LDA 
CMP 
LDA 

sec 

JSR 
TAX 
INX 
BNE 
I MY 
TYA 
JSR 
TXA 
JMP 
LDX 
LDA 
JSR 
DEX 
BNE 
RTS 
SEC 
LDA 
LDY 
TAX 
BPL 
DEY 
ADC 

see 

INY 
RTS 



DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
OFB 
DFB 
DFB 
DFB 
DFB 



LMNEM 

MNEMR. Y 

RMNEM 

#*00 

#*05 

RMNEM 

LMNEM 



PRMN2 

ttJEF 

CDUT 

PRMNl 

PRBLNK 

LENGTH 

«*06 

tt*03 

PRADR5 

FORMAT 

PRADR3 

CHARl-1 

COUT 

CHAR2-1 

PRADR3 

COUT 

PRADRl 



PRADR2 

PRBYTE 

FORMAT 

#SE8 

(PCD, Y 

PRADR4 

PCADJ3 



PRBYTE 

PRBYTE 
#»03 
#*A0 
COUT 

PRBL2 



LENGTH 
PCH 



PCL 
RTS2 



; FETCH 3-CHAR MNEMONIC 
i (PACKED INTO 2-BYTeS) 



i SHIFT 5 BITS OF CHARACTER IN 
i (CLEARS CARRY) 



; ADD "7" OFFSET 
.OUTPUT A CHAR OF MNEM 



i OUTPUT 3 BLANKS 

J CNT FOR 6 FORMAT SITS 

J IF X=3 THEN ADDR, 



i HANDLE RGL ADR MODE 
i SPECIAL (PRINT TARGET, 
i NOT OFFSET) 

; PCL, PCH+OFFSET+1 TO A, Y 

; +1 TO Y, X 

j OUTPUT TAR(5ET ADR 

i OF BRANCH AND RETURN 

-. BLANK COUNT 
; LOAD A SPACE 
i OUTPUT A BLANK 

i LOOP UNTIL CDUNT=0 

; 0=1 BYTE. 1=2 BYTE, 
; 2=3 BYTE 

i TEST DISPLACEMENT SIGN 

: (FOR REL BRANCH) 

; EXTEND NEG BY DECR PCH 

i PCL+LENGTH(OR DISPL)+1 TO A 
; CARRY INTO Y (PCH) 



XXXX 
THEN 
THEN 
(X= 
*04 
¥20 
t54 
S30 
*0D 
*S0 
*04 
*90 
*03 
*22 
*54 
$33 
*0D 
$80 
$04 
»90 
»04 
«20 
»54 
S33 
*0D 
980 
$04 
*90 
»04 
*20 
*54 



XXYO INSTRS 
LEFT HALF BYTE 
RIGHT HALF BYTE 
INDEX) 



Monitor ROM Listings 



F97D: 3B 
F97E: OD 
F97F: BO 
F980: 04 
F9S1: 90 
F9B2: 00 
F983: 22 
F9B4: 44 
F9e5: 33 
F9S6: OD 
F987: CB 
F988: 44 
F9B9: 00 
F98A: 11 
F98B: 22 
F9eC : 44 
F9aD: 33 
F9SE: OD 
F98F: CO 
F990; 44 
F991; A9 
F992: 01 
F993: 22 
F994: 44 
F995: 33 
F996: OD 
F997: SO 
F99S: 04 
F999: 90 
F99A: 01 
F99B: 22 
F99C ; 44 
F97D: 33 
F99E: OD 
F99F: 80 
F9A0: 04 
F9A1; 90 
F9A2: 26 
F9A3: 31 
F9A4: 87 
F9A5: 9A 
F9A6: 
F9A6: 00 
F9A7: 21 
F9A8: 81 
F9A9: 82 
F9AA: 00 
F9AB: 00 
F9AC ; 59 
F9AD: 4D 
F9AE: 91 
F9AF: 92 
F9D0; 86 
F9B1; 4A 
F9B2: 85 
F9B3: 9D 
F984: AC 
F9B5: A9 
F9B6; AC 
F9B7: A3 
F9B8: A8 
FgB"?; A4 
F9BA: 09 
F9DB: 00 
F9BC: DB 
F98D; A4 
F98E: A4 
F9BF: 00 
F9C0: IC 
F9C1; BA 
F9C2: 10 
F9C3: 23 
F9C4: 5D 
F9C5: SB 
F9C6: IB 
F9C7: Al 
F9C8: 9D 
F9C9: BA 
F9CA: ID 
F9CB: 23 
F9CC: 9D 
F9CD: SB 
F9CE: ID 
F9CF: Al 
F9D0: 00 
F9D1 : 29 
F9D2; 19 
F9D3; AE 
F9D4: 69 
F9D5: AS 
F9D6: 19 
F9D7: 23 



353 


DFB 


*3B 




354 


DFB 


SOD 




355 


DFB 


580 




356 


DFS 


*04 




357 


DFB 


t90 




358 


DFB 


*00 




359 


DFB 


122 




360 


DFB 


*44 




361 


DFB 


133 




362 


DFB 


*0D 




363 


DFB 


*CB 




364 


DFS 


S44 




365 


DFB 


*00 




366 


DFB 


*11 




367 


DFB 


»22 




36B 


DFB 


*44 




369 


DFB 


*33 




370 


DFB 


*0D 




371 


DFB 


ICB 




372 


DFB 


»44 




373 


DFB 


5A9 




374 


DFB 


$01 




375 


DFB 


*23 




376 


DFB 


*44 




377 


DFB 


S33 




378 


DFB 


*0D 




379 


DFB 


$80 




380 


DFB 


*04 




381 


DFB 


¥90 




382 


DFB 


*01 




383 


DFB 


532 




384 


DFB 


*44 




385 


DFB 


133 




386 


DFB 


*0D 




387 


DFB 


«80 




3B8 


DFB 


*04 




389 


DFB 


«90 




390 


DFB 


S26 




391 


DFB 


*31 




392 


DFB 


»87 




393 


DFB 


*9A 




394 ; Z2XXXY01 


INSTR 


5 




395 FMT2 


DFB 


*00 


ERR 


396 


DFB 


*21 


IMH 


397 


DFB 


»S1 


Z-PAGE 


398 


DFB 


$82 


ABS 


379 


DFB 


»00 


IMPLIED 


400 


DFB 


»00 


ACCUMULATOR 


401 


DFB 


«59 


(2PAG, X) 


402 


DFB 


*4D 


(ZPAG), Y 


403 


DFB 


*91 


ZPAG, X 


404 


DFB 


«92 


ABS, X 


405 


DFB 


*86 


ABS, Y 


406 


DFB 


*4A 


(ABS) 


407 


DFB 


*85 


ZPAG, Y 


40B 


DFB 


S9D 


RELATIVE 


409 CHARl 


DFB 


tAC 




410 


DFS 


IA9 


') ' 


411 


DFB 


*AC 




412 


DFB 


*A3 


'#' 


413 


DFB 


*AS 


' ( ' 


414 


DFB 


*A4 


'S' 


415 CHARa 


DFB 


*D9 


'Y' 


416 


DFB 


»00 




417 


DFB 


*D8 


'Y ' 


418 


DFB 


*A4 


'*' 


419 


DFB 


»A4 


'S' 


420 


DFB 


*00 




421 MNEML 


DFB 


SIC 




422 


DFB 


»8A 




423 


DFB 


SIC 




424 


DFB 


S23 




425 


DFB 


S5D 




426 


DFB 


»BB 




427 


DFB 


SIS 




428 


DFB 


SAl 




429 


DFB 


*9D 




430 


DFB 


*8A 




431 


DFB 


*iD 




432 


DFB 


S23 




433 


DFS 


*9D 




434 


DFB 


SSB 




435 


DFB 


SID 




436 


DFB 


SAl 




437 


DFB 


SOQ 




43S 


DFB 


S29 




439 


DFB 


• 19 




440 


DFB 


SAE 




441 


DFB 


»69 




442 


DFB 


SAS 




443 


DFB 


S19 




444 


DFB 


*23 
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F9Da; 


24 


F9D9: 


53 


F9DA: 


IB 


F9DB: 


23 


F9DC: 


24 


F9DD: 


53 


F9DE: 


19 


F9DF: 


Al 


F9E0: 


00 


F9E1; 


lA 


F9E2: 


5B 


F9E3: 


3B 


F9E4: 


A5 


F9E5: 


69 


F9E6: 


24 


F9E7: 


24 


F9E8: 


AE 


F9E9: 


AE 


F9EA: 


AS 


F9EB: 


AD 


F9EC1 


29 


F9ED: 


00 


F9EE: 


7C 


F9EF: 


00 


F9F0; 


15 


F9F1: 


9C 


F9F2; 


6D 


F9F3: 


9C 


F9F4; 


A5 


F9F5: 


69 


F9F6: 


29 


F9F7: 


53 


F9F8: 


S4 


F9F9: 


13 


F9FA: 


34 


F9FB: 


1 1 


F9FC 


A5 


F9FD 


69 


F9FE 


23 


F9FF 


AO 


FAOO 


DB 


FAOl 


62 


FA02 


5A 


FA03 


48 


FA04 


26 


FA05 


62 


FA06 


94 


FA07 


88 


FA08 


54 


FA09 


44 


FAOA 


CO 


FAOB 


54 


FAOC 


68 


FAOD 


44 


FAOE 


E8 


FAOF 


94 


FAIO 


00 


FA 11 


D4 


FA12 


OB 


FA13 


84 


FA14 


74 


FA15 


B4 


FA16 


28 


FA17 


6E 


FAIS 


74 


FA 19 


F4 


FAIA 


CC 


FAIB 


4A 


FAIC 


72 


FAID 


F2 


FAIE 


A4 


FAIF 


SA 


FA30 


00 


FA21 


AA 


FA22 


A2 


FA23 


A2 


FA24 


74 


FA25 


74 


FA26 


74 


FA 27 


72 


FA28 


44 


FA29 


68 


FA2A 


B2 


FA2B 


32 



FA2D 
FA2E 
FA2F 
FA30 
FA31 
FA32 
FA33 



445 


DFB 


»24 


446 


DFB 


• 53 


447 


DFB 


• IB 


448 


DFB 


•23 


449 


DFB 


•24 


450 


DFB 


• 53 


451 


DFB 


• 19 


452 


DFB 


•Al 


453 


DFB 


•00 


454 


DFB 


• lA 


435 


DFB 


• 5B 


456 


DFB 


• 5B 


457 


DFB 


•A 5 


4SB 


DFB 


•69 


459 


DFB 


•24 


460 


DFB 


•24 


461 


DFB 


•AE 


462 


DFB 


•AE 


463 


DFB 


•A8 


464 


DFB 


•AD 


465 


DFB 


• 29 


466 


DFB 


•00 


467 


DFB 


*7C 


468 


DFB 


•00 


469 


DFB 


• 15 


470 


DFB 


•9C 


471 


DFB 


•6D 


472 


DFB 


»9C 


473 


DFB 


*A5 


474 


DFB 


•69 


475 


DFB 


•29 


476 


DFB 


• 53 


477 


DFB 


•84 


478 


DFB 


• 13 


479 


DFB 


• 34 


4B0 


DFB 


• 11 


481 


DFB 


• A5 


4B2 


DFB 


*69 


4B3 


DFB 


• 23 


434 


DFB 


• AO 


4B5 MNEMR 


DFB 


•DB 


486 


DFB 


$62 


487 


DFB 


*5A 


488 


DFB 


•48 


489 


DFB 


•26 


490 


DFB 


•62 


491 


DFB 


•94 


492 


DFB 


•SB 


493 


DFB 


• 54 


494 


DFB 


• 44 


495 


DFB 


• C8 


496 


DFB 


• 54 


497 


DFB 


• 68 


498 


DFB 


• 44 


499 


DFB 


• E8 


500 


DFB 


• 94 


501 


DFB 


• 00 


502 


DFB 


tB4 


503 


DFB 


•08 


504 


DFB 


•94 


505 


DFB 


• 74 


506 


DFB 


• B4 


507 


DFB 


• 2B 


508 


DFB 


• 6E 


509 


DFB 


• 74 


510 


DFB 


•F4 


511 


DFB 


•CC 


512 


DFB 


*4A 


513 


DFO 


•72 


514 


DFB 


•F? 


515 


DFB 


•A4 


516 


DFB 


•SA 


517 


DFB 


•00 


518 


DFB 


•AA 


519 


DFB 


• A2 


520 


DFB 


• A? 


521 


DFB 


• 74 


522 


DFB 


• 74 


523 


DFB 


• 74 


524 


DFI3 


47? 


525 


DFB 


• 44 


526 


DFB 


•68 


527 


DFB 


• B2 


528 


DFB 


• 32 


529 


DFB 


• B2 


530 


DFB 


• 00 


531 


DFB 


• 22 


532 


DFB 


too 


533 


DFB 


• lA 


534 


DFB 


• lA 


535 


DFB 


• 26 


536 


DFB 


•26 



(A) FORMAT ABOVE 



(B) FORMAT 



(C> FORMAT 



(D) FORMAT 



<E) FORMAT 



(A) FORMAT 



<B) FORMAT 



(C) FORMAT 



Monitor ROM Listings 



FA34; 72 






537 




DFB 


»72 


FA35: 72 






538 




DFB 


472 


FA36; B8 






539 




DFB 


S88 


FA37: CB 






540 




DFB 


*C8 


FA3B: C4 






541 




DFB 


*C4 


FA37: CA 






542 




DFB 


»CA 


FA3A: 26 






543 




DFB 


*26 


FA3B; 48 






544 




DFB 


*48 


FA3C : 44 






545 




DFB 


*44 


FA3D: 44 






546 




DFB 


*44 


FA3E: A2 






547 




DFB 


«A2 


FA3F: CS 






548 




DFB 


$C8 


FA40: as 


45 




549 


IRQ 


STA 


ACC 


FA43: 6B 






550 




PLA 




FA43: 48 






551 




PHA 




FA44: OA 






552 




ASL 


A 


FA45; OA 






553 




ASL 


A 


FA46: OA 






554 




ASL 


A 


FA47: 30 


03 


FA4C 


555 




BMI 


BREAK 


FA49: 6C 


FE 


03 


556 




JMP 


(IRQLOC) 


FA4C: 28 






557 


BREAK 


PLP 




FA4D: 20 


4C 


FF 


55B 




JSR 


SAVl 


FA50: 68 






559 




PLA 




FA51: 85 


3A 




560 




STA 


PCL 


FA53: 68 






561 




PLA 




FA54: 85 


3B 




562 




STA 


PCH 


FA56: 6C 


FO 


03 


563 




JMP 


(BRKV) 


FA59: 20 


B2 


F8 


564 


OLDBRK 


JSR 


INSDSl 


FA5C: 20 


DA 


FA 


565 




JSR 


RGDSPl 


FA5F: 4C 


65 


FF 


566 




JMP 


MON 


FA6a: D8 






567 


RESET 


CLD 




FA63: 20 


B4 


FE 


568 




JSR 


SETNORM 


FA66: 20 


2^ 


FB 


569 




JSR 


INIT 


FA69: 20 


93 


FE 


570 




JSR 


SETVID 


FA6C : 20 


89 


FE 


571 




JSR 


SETKBD 


FA6F: AD 


58 


CO 


572 


INITAN 


LDA 


5ETAN0 


FA72: AD 


5A 


CO 


573 




LDA 


SETANl 


FA75; 




0001 


574 




DO 


APPLE2E 


FA75: AO 


05 




575 




LDY 


#5 


FA77: 20 


B4 


FB 


576 




JBR 


GDTOCX 


FA7A: EA 






577 




NOP 




FA7B: 






578 




ELSE 




S 






579 




LDA 


CLRAN2 


S 






580 




LDA 


CLRAN3 


FA7B; 






581 




FIN 




FA7B: AD 


FF 


CF 


582 




LDA 


CLRROM 


FA7E; 2C 


10 


CO 


583 




BIT 


KBDSTRB 


FA81:D8 






584 


NEWMDN 


CLD 




FA82: 20 


3A 


FF 


585 




JSR 


BELL 


FA85: AD 


F3 


03 


586 




LDA 


SOFTEV+1 


FA88; 49 


A5 




587 




EDR 


#*A5 


FABA: CD 


F4 


03 


588 




CMP 


PWREDUP 


FA8D: DO 


17 


FAA6 


589 




BNE 


PWRUP 


FABF: AD 


F2 


03 


590 




LDA 


SOFTEV 


FA92: DO 


OF 


FAA3 


591 




BNE 


NQFIX 


FA94: A9 


EO 




592 




LDA 


#*E0 


FA96; CD 


F3 


03 


593 




CMP 


SOFTEV+l 


FA99: DO 


08 


FAA3 


594 




BNE 


NOFIX 


FA9B: AO 


03 




595 


FIXeEV 


LDY 


#3 


FA9D: SO 


F2 


03 


596 




STY 


SOFTEV 


FAAO; 4C 


00 


EO 


597 




JMP 


BASIC 


FAA3: 6C 


F2 


03 


599 


NDFIX 


JMP 


C SOFTEV) 


FAA6: 






599 




« 


FAA6; 30 


60 


FB 


600 


PWRUP 


JSR 


APPLEII 


FAA9: 




FAA9 


601 


SETPG3 


EQU 


» 


FAA9: A2 


05 




602 




LDX 


#5 


FAAB: BD 


FC 


FA 


603 


SETPLP 


LDA 


PWRCON-1. X 


FAAE;9D 


EF 


03 


604 




STA 


BRKV-1, X 


FABl: CA 






605 




OEX 




FAB2: DO 


F7 


FAAB 


606 




BNE 


SETPLP 


FAS4: A9 


C8 




607 




LDA 


#SC8 


FAB6; 86 


00 




608 




STX 


LOCO 


FABS: 85 


01 




609 




STA 


LOCI 


FABA: AO 


07 




610 


SLDJP 


LDY 


#7 


FABC:C6 


01 




611 




DEC 


LOCI 


FABE; A 5 


01 




612 




LDA 


LOCI 


FACO; C9 


CO 




613 




CMP 


#SCO 


FAC2:F0 


D7 


FA9B 


614 




BEQ 


FIXSEV 


FAC4:aD 


F8 


07 


615 




STA 


MSLOT 


FAC7:B1 


00 




616 


NXTBYT 


LDA 


(LOCO), Y 


FAC9: D9 


01 


FB 


617 




CMP 


DISKID~1, Y 


FACC:DO 


EC 


FABA 


618 




BNE 


SLOOP 


FACE: 88 






619 




DEY 




FACF: 88 






620 




DEY 




FADO: 10 


F5 


FAC7 


621 




BPL 


NXTBYT 


FAD2: 6C 


00 


00 


622 




JMP 


(LOCO) 


FADS: EA 






623 




NOP 




FAD6: EA 






624 




NOP 




FAD7: 






625 


• RESDSP 


MUST ORG 


♦FAD7 


FAD7:20 


BE 


FD 


626 


REGDSP 


JSR 


CROUT 


FADA: A9 


45 




627 


RGDSPl 


LDA 


#•45 


FADC : B5 


40 




628 




STA 


A3L 



(D) FORMAT 



(E) FORMAT 

»»# IRQ HANDLER 



TEST FOR 'BRK' 

USER ROUTINE VECTOR IN RAM 



SAVE REG'S ON BREAK 
INCLUDING PC 



BRKV WRITTEN OVER BY DISK BOOT 
PRINT USER PC 

AND REGS 
GO TO MONITOR (NO PASS GO. NO * 
DO THIS FIRST THIS TIME 



ANO = TTL HI 

ANl = TTL HI 
/RRA0981 

CaDE=INIT/RRA09Bl 
DO APPLE2E INIT/RRA0981 
/RRA0981 
/RRA0981 

AN2 = TTL LO 

AN3 = TTL LO 
/RRA0981 

TURN OFF EXTNSN ROM 

CLEAR KEYBOARD 

CAUSES DELAY IF KEY BOUNCES 
IS RESET HI 
A FUNNY COMPLEMENT OF THE 

PWR UP BYTE ??? 

NO SO PWRUP 

YES BEE IF COLD START 

HAS BEEN DONE YET? 

DOES SOFT ENTRY VECTOR POINT AT BASIC 

YES SO REENTER SYSTEM 

NO SO POINT AT WARM START 

FOR NEXT RESET 

AND DO THE COLD START 

SOFT ENTRY VECTOR 



SET PAGE 3 VECTORS 



WITH CNTRL B ADRS 
OF CURRENT BASIC 



LOAD HI SLOT +1 
SETPG3 MUST RETURN X=0 
SET PTR H 
Y IS BYTE PTR 



AT LAST SLOT YET? 

YES AND IT CAN'T BE A DISK 

FETCH A SLOT BYTE 

IS IT A DISK ?? 

NO, SO NEXT SLOT DOWN 

YES. SO CHECK NEXT BYTE 
UNTIL 4 BYTES CHECKED 
GO BOOT, , . 



DISPLAY USER REG CONTENTS 
MITH LABELS 



Monitor Firmware Listing 



FADE: A9 
FAEO: 85 
FAE2: A2 
FAE4; A9 
FAE6: 20 
FAE9: BD 
FAEC: 20 
FAEF: A9 
FAFl: 20 
FAF4; 
FAF4: B5 
FAF6: 20 
FAF9: E8 
FAFA: 30 
FAFC: 60 
FAFD: 59 
FAFF: 00 
FB02: 20 
FB06: 03 
FB09: CI 
FBI I: 
FBli; C4 
FB14; FF 
FB16; FF 
FB19: 
FB19: CI 
FBIC: DO 
FBIE: AD 
FB21: AO 
FB23: EA 
FB24: EA 
FB25: BD 
FB28: 10 
FB2A: CS 
FB20: DO 
FB2D: as 
FB2E: 60 
FB2F: 
FB2F: 
FB2F: A9 
FB31: 85 
FB33: AD 
FB36: AD 
FB39: AD 
FB3C: A9 
FB3E: FO 
FB40: AD 
FB43: AD 
FB46: 20 
FB49: A9 
FB4B: 85 
FB4D: A9 
FB4F: 85 
FB51: 
FB51; AO 
FB53; DO 
FB55: 



FB55: 
FB55; A9 
FB57:85 
FB59: A9 
FB 50:85 
FB5D: 4C 
FB60: 20 
FB63: AO 
FB65: B9 
FB6B: 99 
FB6B: 88 
FB6C : DO 
FB6E: 60 
FB6F: AD 
FB72: 49 
FB74: 80 
FB77: 60 
Fe78: 
FB78: C9 
FB7A: DO 
FB7C: AC 
FB7F: 10 
FB81: CO 
FB83: DO 
FB85: 2C 
FB88: AC 
FBBB: 10 
FOaD: CO 
FBBF: FO 
FB91:2C 
FB94: 4C 
FB97: 38 



FA 

EG 45 
FF 00 FF 
FF 3C 
FO FO EC 

FBll 
C2 CI 
C3 
FF FF 



FB2E 
FB25 



629 

630 

631 

632 RDSPl 

633 

634 

635 

636 

637 

638 » LDA ACC + 5, 

639 

640 

641 

642 

643 

644 PWRCDN 

645 

646 DISKID 

647 

648 TITLE 

649 XLTBL 
650 

651 
652 

653 * MUST ORG 

654 RTBL 
655 

656 PREA0 
657 
658 
659 

660 PREAD2 
661 
662 
663 
664 

665 RTS2D 
666 



56 CO 
54 CO 
51 CO 



50 CO 
53 CO 
36 F8 



22 FC 
58 FC 



08 FB 

OE 04 



10 CO 
00 CO 



10 CO 
FD FB 



LDA 
STA 
LDX 
LDA 
■JSH 
LDA 
JSR 
LDA 
JSR 



J5R 

INX 

BMl 

RTS 

DW 

DFD 

DFB 

DFB 

ASC 

EQU 

DFB 

DFB 

DFB 

*FB19 



#«00 

A3H 

#*FB 

#*A0 

COUT 

RTBL-251 

CDUT 

*t*BD 

COUT 

*B5, t4A 
PRBYTE 

RDSPl 



QLDBRK 
$00. *E0/ «45 
$20. «FF, *00, *FF 
S03. *FF, *3C 
'App le 2L ' 

»C4, *C2, «C1 
$FF, *C3 
*FF, tFF. IFF 



2 INIT 



13 SETWND 



28 APPLEII 



30 STITLE 



35 SETPWRC 



39 VIDWAIT 



47 KBDWAIT 



52 NOWAIT 

53 ESC OLD 



DFB 
DFB 
LDA 
LDY 
NOP 
NOP 
LDA 
BPL 
I NY 
BNE 
DEY 
RTS 
CHN 

LDA 

STA 

LDA 

LDA 

LDA 

LDA 

BEQ 

LDA 

LDA 

JSR 

LDA 

STA 

LDA 

STA 

DO 

LDY 

BNE 

ELSE 

LDA 

STA 

FIN 

LDA 

STA 

LDA 

STA 

JMP 

JSR 

LDY 

LDA 

STA 

DEY 

BNE 

RTB 

LDA 

EOR 

STA 

RTS 

EQU 

CMP 

BNE 

LDY 

QPL 

CPY 

BNE 

BIT 

LDY 

BPL 

CPY 

BEQ 

BIT 

JMP 

SEC 



*Cl,tD8,SD9 i REGISTER NAMES FOR REGDSP: 

*D0, SD3 , 'AXYPS' 

PTRIG ; TRIGGER PADDLES 

ttSOO i INIT COUNT 

/COMPENSATE FOR 1ST COUNT 



PADDLO, X 
RTS2D 



#*00 

STATUS 

LORES 

LOWSCR 

TXTSET 

ttlOO 

SETWND 

TXTCLR 

MIXSET 

CLRTOP 

#*14 

WNDTOP 

#*00 

WNDLFT 

APPLE2E 

#8 

GOTOCX 



#«18 

WNDBTM 

tt*17 



TITLE- 
LINE !■»- 



SOFTEV+1 

#»A5 

PHREDUP 



#*eD 

NOWAIT 

KBD 

NOWAIT 

#«93 

NOUAIT 

KBDSTRB 

KBD 

KBDUAIT 

tt»83 

NOMA IT 

KBDSTRB 

VIDOUT 



; COUNT Y-REG EVERY 12 USEC , 



} EXIT AT 255 MAX 



i CLR STATUS FOR DEBUG SOFTWARE 



; INIT VIDEO MODE 
; SET FOR TEXT MODE 
i FULL SCREEN WINDOW 

; SET FOR GRAPHICS MODE 

, LOWER 4 LINES AS TEXT WINDOW 



i SET FOR 40 CDL WINDOW 

i TOP IN A-REG, 

; BOTTOM AT LINE t24 

; /RRA0981 

; CODE=SETWND /RRA0981 

; DO 40/80 /RRA0981 

i /RRA0981 



i VTAB TO ROW 23 

; VTABS TO ROW IN A-REG 



i CLEAR THE SCRN 



; GET A CHAR 

iPUT IT AT TOP CENTER OF SCREEN 



.-ROUTINE TO CALCULATE THg 'FUNNY 
; COMPLEMENT' FOR THE RESET VECTOR 



; CHECK FDR A PAUSE (CONTROL-S). 

i ONLY WHEN I HAVE A CR 

i NOT SO, DO REGULAR 

i IS KEY PRESSED? 

i NO- 

i YES — IS IT CTRL-S? 

i NOPE - IGNORE 

i CLEAR STROBE 

iWAIT TILL NEXT KEY TO RESUME 

i WAIT FOR KEYPRESS 

i IS IT CONTROL-C? 

i YES, SO LEAVE IT 

i CLR STROBE 

i DO AS BEFORE 

i INSURE CARRY SET 



10 



Monitor ROM Listings 



FB9B: 4C 


2C 


FC 


54 




JMP 


ESCl 


FB9B; AB 






55 


ESCNDW 


TAY 




FB9C; B9 


48 


FA 


56 




LDA 


XLT8L-SC9, Y 


FB9F: 20 


97 


FB 


57 




JBR 


ESCOLD 


FBA2: 




0001 


58 




DD 


APPLE2E 


FBA2: 20 


21 


FD 


59 




JSR 


RDESC 


FBA5: 






60 




ELSE 




S 






61 




JSR 


RDKEY 


FBA5: 






62 




FIN 




FBA5: C9 


CE 




63 


ESCNEW 


CMP 


#*CE 


FBA7: BO 


EE 


FB97 


64 




BCS 


ESCOLD 


FBA9: C9 


C9 




65 




CMP 


#*C9 


FBAS: 90 


EA 


FB97 


66 




BCC 


ESCOLD 


FBAD:C9 


CC 




67 




CMP 


#»CC 


FBAF: FO 


E6 


FB97 


68 




BEO 


ESCOLD 


FBBl: DO 


£8 


FB9B 


69 




BNE 


ESCNDW 


FBB3; 




0001 


70 




DO 


APPLE2E 


FBB3: 




C006 


71 


SETSLDTCXROM EQU 


*C006 


FBB3; 




C007 


72 


SETINTCXRDM EQU 


tC007 


FBD3; 




C015 


73 


RDCXRDM 


EQU 


ICO 15 


FBB3: 






74 


* 






FBB3: 06 






75 


VERSION 


DFB 


S06 


FBB4: 




FBB4 


76 


GOTOCX 


EQU 


# 


FBB4: OS 






77 




PHP 




FBB5: 7B 






78 




SEI 




FBSfc: 2C 


15 


CO 


79 




BIT 


RDCXROM 


FBB9; OB 






SO 




PHP 




FBBA: 8D 


07 


CO 


81 




STA 


SETINTCXROM 


FBBD: 4C 


00 


CI 


82 




JMP 


*C100 


FBCO: 






83 


» 






FBCO: EA 






84 




NOP 




FBCl: 






S5 




ELSE 




S 






B6 




NOP 




S 






87 




NOP 




S 






88 




NOP 




S 






B9 




NOP 




s 






90 




NOP 




s 






91 




NOP 




5 






92 




NOP 




s 






93 




NOP 




s 






94 




NOP 




s 






95 




NOP 




5 






96 




NOP 




S 






97 




NOP 




s 






98 




NOP 




s 






99 




NOP 




FBCl: 






100 




FIN 




FBCl; 






101 


» MUST 


ORG *FBC1 


FBCl: 48 






102 


BASCALC 


PHA 




FBCa: 4A 






103 




LSR 


A 


FBC3: 29 


03 




104 




AND 


#*03 


FBC5:09 


04 




105 




DRA 


tt*04 


FBC7: S5 


29 




106 




STA 


BASH 


FBC9: 6B 






107 




PLA 




FBCA: 29 


18 




108 




AND 


tt«18 


FBCC: 90 


03 


FBDO 


109 




BCC 


BASCLC2 


FBCE:69 


7F 




no 




ADC 


»*7F 


FBDO: B5 


28 




111 


BASCLC2 


STA 


BASL 


FBD2: OA 






112 




ASL 


A 


FBD3: OA 






113 




ASL 


A 


FBD4: 05 


28 




114 




ORA 


BASL 


FBD6: 85 


28 




115 




STA 


BASL 


FBD8: 60 






116 




RTS 




FBD9; C9 


87 




117 


BELLI 


CMP 


#«87 


FBDB: DO 


12 


FBEF 


118 




BNE 


RTS2B 


FBDD: A9 


40 




119 




LDA 


«»40 


FBDF: 20 


AB 


FC 


120 




JSR 


WAIT 


FBE3: AG 


CO 




121 




LDY 


ttSCO 


FBE4: A9 


oc 




122 


BELL2 


LDA 


#»0C 


FBE6: 20 


AS 


FC 


123 




JSR 


WAIT 


FBE9: AD 


30 


CO 


124 




LDA 


SPKR 


FBEC:B8 






125 




DEY 




FBED: DO 


F5 


FBE4 


126 




BNE 


BELL2 


FBEF: 60 






137 


RTS2B 


RTS 




FBFO: A4 


24 




128 


STORADV 


LDY 


CH 


FBF2:91 


26 




129 




STA 


(BASL). Y 


FBF4: E6 


24 




130 


ADVANCE 


INC 


CH 


FBF6: A5 


24 




131 




LDA 


CH 


FBFB:C5 


21 




132 




CMP 


WNDUDTH 


FBFA: EO 


66 


FC62 


133 




BCS 


CR 


FBFC: 60 






134 


RTS3 


RTS 




F8FD: C9 


AO 




139 


VIDDUT 


CMP 


#»A0 


FBFF: BO 


EF 


FBFO 


136 




BCS 


STDRADy 


FC01:A8 






137 




TAY 




FC02: 10 


EC 


FBFO 


138 




BPL 


STORADV 


FC04: C9 


80 




137 




CMP 


tt»8D 


FC06: FO 


5A 


FC62 


140 




BEQ 


CR 


FC08: C9 


8A 




141 




CMP 


#»8A 


FCOA: FO 


5A 


FC66 


142 




BEQ 


LF 


FC0C:C9 


88 




143 




CMP 


#«se 


FCOE: DO 


C9 


FBD9 


144 




BNE 


BELLI 


FC10:C6 


24 




143 


BS 


DEC 


CH 



i USE CHAR AS INDEX 

; TRANSLATE IJKM TO CBAD 

j DO THE CURSOR MOTION 

; FOR FULL ESCAPES/RRA0981 

i GET IJKM- ijkm, ARR0WS/RRA09S1 

; /RRA0981 

i AND GET NEXT 

; /RRA0981 

I IS THIS AN 'N'? 

; 'N' OR GREATER - DO IT! 

i LESS THAN 'I '? 

; YES, SO DO OLD WAY 

i IS IT AN 'L'? 

; DO NORMAL 

i GO DO IT 

; /RRA09B1 

i /RRA09ai 

i /RRA09ai 

i /RRA0981 

/RRA09B1 

i FOR IDCHECK/RRA0981 

; /RRA0981 

i SAVE USER IRQ STATE/RRA09B1 

i INHIBIT DURING BANKSWITCH/RRA09B1 

i GET CURRENT STATE/RRA09S1 

i SAVE ROMBANK STATE/RRA098i 

i SET ROMS 0N/RRA09B1 

; =>DFF TO CXSPACE/RRA0981 

/RRA09ei 

i /RRA0981 

i /RRA0981 

;"I GOT PLENTY OF NOTHINffI" 



; /RRA09S1 

i CALCBASE ADDR IN BASL, H 

I FDR GIVEN LINE NO. 

; 0<=LINE NO, <=*17 

; ARG=000ABCDE, GENERATE 

; BASH=000001CD 

; AND 

i BASL=EABABOO0 



; BELL CHAR? CCDNTROL-G) 

i NO, RETURN. 

; YES, . . 

1 DELAY . 01 SECONDS 

i TOGGLE SPEAKER AT 1 KHZ 
; FOR , 1 SEC. 



i CURSOR H INDEX TO V-REG 

i STORE CHAR IN LINE 

i INCREMENT CURSOR H INDEX 

; (MO*/E RIGHT) 

i BEYOND WINDOW WIDTH? 

; YES, CR TO NEXT LINE. 

i NO, RETURN. 

i CONTROL CHAR? 

i NO, OUTPUT IT. 

i INVERSE VIDEO? 

i YES, OUTPUT IT. 

iCR? 

i YES. 

iLINE FEED? 

i IF SO, DO IT, 

i BACK SPACE? (CONTRDL-H) 

I NO, CHECK FDR BELL. 

i DECREMENT CURSOR H INDEX 



Monitor Firmware Listing 



11 



FC12 


10 


EB 


FBFC 


146 




FC14: A5 


2X 




147 




FC16:83 


24 




14B 




FC18:C6 


24 




149 




FCIA: A5 


22 




150 


UP 


FC1C:C5 


25 




131 




FCIE: BO 


OB 


FC2B 


152 




FC20: C6 


25 




153 




FC22: A5 


25 




154 


VTAB 


FC24; 20 


CI 


FB 


155 


VTABZ 


FC27:65 


20 




156 




FC29:B5 


28 




157 




FC2B: 60 






158 


RTS4 


FC2C; 49 


CO 




159 


ESCl 


FC2E: FO 


28 


FC5B 


160 




FC30: 69 


FD 




161 




FC32: 90 


CO 


FBF4 


162 




FC34: FO 


DA 


FCIO 


163 




FC36: 69 


FD 




164 




FC3B: 90 


2C 


FC66 


163 




FC3A: FO 


DE 


FCIA 


166 




FC3C: 69 


FD 




167 




FC3E; 90 


5C 


FC9C 


168 




FC40: DO 


E9 


FC2B 


169 




FC42; 




0001 


170 




FC42, 




FC42 


171 


CLREOP 


FC42; AO 


00 




172 




FC44:F0 


2C 


FC72 


173 




FC46: AS 


C3 


A9 AO 


174 




FC58: 






175 




S 






176 


CLREOP 


B 






177 




S 






17B 


CLEOPl 


5 






179 




S 






180 




S 






181 




S 






1B2 




S 






1B3 




5 






1B4 




B 






185 




S 






186 




FC5B 








1B7 




FC5B 






0001 


188 




FC5B 






FC5S 


1B9 


HOME 


FC5B 


AO 


01 




190 




FC5A 


DO 


16 


FC72 


191 




FC5C 


02 


C9 


C3 CB 


192 




FC6a 








193 




S 






194 


HOME 


S 






193 




S 






196 




S 






197 




S 






19B 




FC62 








199 





FC62: 
FC64: 
FC66: 
FC68: 
FC6A: 
FC6C; 
FC6E: 
FC70: 
FC70: 
FC70: 
FC72: 
FC75: 
FC75: 
FC75: 
FC75: 
FC75: 
FC75: 
FC76: 
FC79: 
FC7A; 
FC7B: 
FC7E: 
FC7F; 
FCei: 
FC84: 
FCa7: 
FC8A: 
FCBB: 
FC8C: 
FC8E: 
FC91: 
FC91; 
FC92: 
FC94: 
FC96: 
FC99. 
FC 99: 



A9 00 

B5 24 

E6 25 

A5 25 

C5 23 

90 B6 

C6 25 



0001 
FC70 



AO 02 
4C B4 F3 



205 
206 
207 
208 
209 
210 



BPL 


RTS3 


LDa 


WNDWDTH 


STA 


CH 


DEC 


CH 


LDA 


WNDTDP 


CMP 


CV 


8CS 


RTS4 


DEC 


CV 


LDA 


CV 


JSR 


BASCALC 


ADC 


WNDLFT 


STA 


BASL 


RTS 




EOR 


»»C0 


BEQ 


HOME 


ADC 


#»FD 


BCC 


ADVANCE 


BEQ 


as 


ADC 


#»FD 


BCC 


LF 


BEQ 


UP 


ADC 


#»FD 


BCC 


CLREOL 


BNE 


RTS4 


DO 


APPLE2e 


EQU 


# 


LDY 


ttO 


BEQ 


XGOTDCX 


ABC 


'(C) 


ELSE 




LDY 


CH 


LDA 


CV 


PHA 




JSR 


VTABZ 


JSR 


CLEOLZ 


LDY 


#»00 


PLA 




ADC 


tt*00 


CMP 


WNDBTM 


BCC 


CLEDPl 


BCS 


VTAB 


FIN 




DO 


APPLE2E 


EQU 


* 


LDY 


#1 


BNE 


XGOTOCX 


ASC 


'RICK 


ELSE 




LDA 


WNDTOP 


STA 


CV 


LDY 


#100 


STY 


CH 


BEQ 


CLEOPl 


FIN 




LDA 


#*00 


STA 


CH 


INC 


CV 


LDA 


CV 


CMP 


WNDBTM 


BCC 


VTABZ 



SCROLL EQU * 

LDY #2 

XGOTOCX JMP GOTOCX 

* IRQ SNIFFER FOR VIDEO CODE: 



OS 

90 03 
SD 54 
2C 15 ■ 
8D 06 
58 
78 

10 03 
BD 07 ■ 



90 05 
10 03 
2C 55 ■ 



C018 


214 


RDSOSTDRE 


EQU 


*C01S 


COIC 


215 
216 


RDPAGE2 


EQU 
PHA 


*C01C 




217 




LDA 


RDBOSTORE 




218 




ASL 


A 




219 




PLA 






220 




on 


RDPAGE2 




221 




PHP 




FC84 


222 




BCC 


RDCX 




223 




STA 


*C054 




224 


RDCX 


BIT 


RDCXROM 




225 




STA 


SETSLDTCXRQM 




226 




CLI 






227 




SEI 




FC91 


22S 




BPL 


ISSLOTS 




229 




BTA 


SETINTCXRDM 


FC91 


230 
231 


ISSLOTS 


EQU 
PLP 


* 


FC99 


232 




BCC 


ISPAGEl 


FC97 


233 




BPL 


ISPAGEl 




234 




BIT 


S.C055 


FC99 


235 
236 


ISPAGEl 


EQU 
RTS 


* 



I IF POSITIVE, OKj else MOVE UP, 
iSET CH TO WINDOW WIDTH - 1, 

i (RIGHTMOST SCREEN POS) 
; CURSOR V INDEX 

i IF TOP LINE THEN RETURN 
;DECR CURSOR V INDEX 
iGET CURSOR V INDEX 
i GENERATE BASE ADDRESS 
iADD WINDOW LEFT OFFSET 
i TO BASL 

iESC 'a '7 

IF SO DO HOME AND CLEAR 
;ESC-A OR B CHECK 

, ADVANCE 

, BACKSPACE 
iESC-C OR D CHECK 

, DOWN 

, eo UP 

iESC-E OR F CKECK 

E. CLEAR TO END OF LINE 
ELSE NOT F. RETURN 

- /RRA09B1 

i /RRA09B1 

i C0DE=CLREQP/RRA09ai 

: DO 40/80 /RRA0981 
1981-82, APPLE' 

i /RRA09B1 

i ESC F IS CLR TO END OF PAGE 

i SAVE CURRENT LINE NO, ON STACK 
i CALC BASE ADDRESS 
i CLEAR TO EOL, <BETS CARRY) 
i CLEAR FROM H INDEX=0 FOR REST 
i INCREMENT CURRENT LINE NO, 
; (CARRY IS STILL SET) 
i DONE TO BOTTOM OF WINDOW? 
; NO, KEEP CLEARING LINES, 
i YES, VTAB TO CURRENT LINE, 
i /RRA0981 
i /RRA0981 
i /RRA0981 

j CODE=HOME/RRA09B1 
.- DO 40/80 /RRA09B1 
A' i OUR HERD. , , 
i /RRA098i 
; INIT CURSOR V 
; AND H INDICES 

J THEN CLEAR TO END OF PAGE. 

) (ALWAYS TAKEN) 

J /RRA0981 

i CURSOR TO LEFT OF INDEX 

; (RET CURSOR H=0) 

; INCR CURSOR V. (DOWN 1 LINE) 

; OFF SCREEN? 

NO, SET BASE ADDR 
i DECR CURSOR V. (BACK TO BOTTOM) 
: /RRA09B1 
i /RRA09B1 

; CODE=SCROLL/RRA09S1 
; DO 40/80 /RRA09S1 



i /RRA09B1 

; /RRA09B1 

; PRESERVE AC/RRA0981 

; FLAG~>N /RRA0981 

: FLAG->C /RRA0981 

; RESTORE AC/RRA09B1 

; FLAG->N /RRA09B1 

i /RRA09B1 

; NOT BANKSWlTCHING/RRA09ai 

, FORCE MB TXTPAGE/RRA09S1 

i FLAG->N /RRA09B1 

i RESTORE BANK/RRA0981 
; ENABLE lRa/RRA0981 
i NOW DISABLE/RRA0981 
; =>WAS SL0TS/RRA0981 
; BANK-IN CX/RRA09S1 
i /RRA0981 

; WHAT VID BANK/PAGE7/RRA09B1 
i =>NOT BANKED/RRA0981 
i IT'S PAGE1/RRA07S1 
; FORCE PAGE2/RRA0961 
i /RRA0981 
i CONTINUE VIDE0/RRA09B1 
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FC9A: EA 






237 




NOP 




i /RRA0981 


FC9B:EA 






236 




NOP 




i /RRA09B1 


FC9C: 






239 




ELSE 




J /RRA09B1 


S 






240 


SCROLL 


LDA 


UNDTOP 


i START AT TOP OF SCROLL WINDOW 


5 






241 




PHA 






5 






242 




JSR 


VTABZ 


i GENERATE BASE ADDRESS 


S 






243 


SCRLl 


LDA 


BASL 


i COPY BASL- H 


5 






244 




STA 


BAS2L 


i TO BAS2L, H 


S 






245 




LDA 


BASH 




S 






246 




STA 


BAS2H 




S 






247 




LDY 


MNDUDTH 


i INIT Y TO RieHTMOST INDEX 


5 






248 




DEV 




i OF SCROLLING WINDOW 


S 






249 




PLA 






s 






250 




ADC 


tt«01 


; INCR LINE NUMBER 


E 






251 




CMP 


MNDBTM 


1 DONE? 


S 






252 




8CS 


SCRL3 


i YES, FINISH 


5 






253 




PHA 






5 






254 




JSR 


VTAEZ 


;FORM BASL, H (BASE ADDR ) 


S 






255 


SCRL2 


LDA 


(BASL), V 


.-MOVE A CHAR UP ONE LINE 


S 






256 




STA 


(BAS2L), Y 




S 






257 




DEY 




;NEXT CHAR OF LINE 


S 






258 




BPL 


SCRL2 




s 






259 




BMI 


SCRLl 


(NEXT LINE 


s 






260 


SCRL3 


LDY 


#•00 


i CLEAR BOTTOM LINE 


s 






261 




JSR 


CLEOLZ 


iGET BASE ADDR FDR BOTTOM LINE 


B 






262 




BOB 


VTAB 


; CARRY IS SET 


FC9C: 






263 




FIN 




i /RRA0981 


FC9C: 




0001 


264 




DO 


APPLE2E 


i /RRA0981 


FC9C: 




FC9C 


265 


CLREDL 


EQU 


« 


, /RRA0981 


FC9C: 18 






266 




CLC 




i SAY 'EOL'/RRA09B1 


FC9D: BO 






267 




DFB 


*B0 


i 'DCS' OPCODE /RRA0981 


FC9E: 




FC9E 


26B 


CLRE0L2 


EQU 


« 


i /RRA09D1 


FC9E; 38 






269 




SEC 




i BAY 'EDLZ'/RRA09S1 


FC9F: 84 


IF 




270 




STY 


»1F 


i VIDEO'S YSAV1/RRA0981 


FCAl: AO 


03 




271 




LDY 


#3 


iC0DE=EaL/RRA0981 


FCA3: 90 


CD 


FC72 


272 




BCC 


XGOTOCX 


;->IT'S E0L/RRA0981 


FCA5: CB 






273 




I NY 




i CaDE-E0LZ/RRA09Sl 


FCA6: DO 


CA 


FC72 


274 




BNE 


XGDTOCX 


; ->ALWAYS/RRA0981 


FCAS: 






275 




ELBE 




j /RRA0981 


S 






276 


CLREDL 


LDY 


CH 


i CURSOR H INDEX 


S 






277 


CLEDLZ 


LDA 


#*A0 


i STORE BLANKS FROM 'HERE' 


B 






278 


CLE0L2 


BTA 


(BASL), Y 


i TO END OF LINES (WNDWDTH) 


S 






279 




I NY 






s 






280 




CRY 


WNDWDTH 




s 






281 




BCC 


CLE0L2 




s 






282 




RTS 






FCA8; 






283 




FIN 




i /RRA0981 


FCA8: 38 






284 


WAIT 


BEC 






FCA9: 48 






285 


WAIT2 


PHA 






FCAA; £9 


01 




286 


WAIT3 


SBC 


#«01 




FCAC: DO 


FC 


FCAA 


287 




BNE 


WAITS 


; 1 . 0204 USEC 


FCAE: 68 






288 




PLA 




i (13+2712«A+512*A*A) 


FCAF: E9 


01 




289 




BBC 


#*01 




FCBIiDO 


F6 


FCA9 


290 




BNE 


WAIT2 




FCB3: 60 






291 




RTS 






FCB4: E6 


42 




292 


NXTA4 


INC 


A4L 


i INCR 2-BYTE A4 


FCB6: DO 


02 


FCBA 


293 




BNE 


NXTAl 


1 AND Al 


FOBS: E6 


43 




294 




INC 


A4H 




FCBA: A5 


3C 




295 


NXTAl 


LDA 


AIL 


> INCR 2-BYTE Al- 


FCBC: C5 


3E 




296 




CMP 


A2L 


i AND COMPARE TD A2 


FCDE; A5 


3D 




297 




LDA 


AlH 


i (CARRY BET IF >=) 


FCCO: E5 


3F 




298 




SBC 


A2H 




FCC2; E6 


3C 




299 




INC 


AIL 




FCC4:D0 


02 


FCCS 


300 




BNE 


RTS4B 




FCC6: E6 


3D 




301 




INC 


AlH 




FCCS: 60 






302 


RTB4B 


RTS 






FCC9: AO 


4B 




303 


HEADR 


LDY 


tt*4B 


; WRITE A*256 'LONG 1 ' 


FCCB: 20 


DB 


FC 


304 




JBR 


ZERDLY 


i HALF CYCLES 


FCCE: DO 


F9 


FCC9 


305 




BNE 


HEADR 


: (650 USEC EACH) 


FCDO: 69 


FE 




306 




ADC 


tt*FE 




FCD2: BO 


F5 


FCC9 


307 




BCB 


HEADR 


i THEN A 'SHORT 0' 


FCD4: AO 


21 




308 




LDY 


#»2l 


i (400 USEC) 


FCD6: 20 


DB 


FC 


309 


WRBIT 


JSR 


ZERDLY 


i WRITE TWO HALF CYCLES 


FCD9; CB 






310 




I NY 




i DF 250 USEC ( '0') 


FCDA: C8 






311 




I NY 




; DR 500 USEC ( ' 1 ' ) 


FCDB; 88 






312 


2ERDLY 


DEY 






FCDC:DO 


FD 


FCDB 


313 




BNE 


ZERDLY 




FCDE; 90 


05 


FCE5 


314 




BCC 


WRTAPE 


i Y IS COUNT FOR 


FCEO: AO 


32 




315 




LDY 


#533 


i TIMING LOOP 


FCE2: 88 






316 


ONEDLY 


DEY 






FCE3: DO 


FD 


FCE2 


317 




BNE 


DNEDLY 




FCE5: AC 


20 


CO 


318 


WRTAPE 


LDY 


TAPEOUT 




FCES: AO 


2C 




319 




LDY 


#*2C 




FCEA: CA 






320 




DFX 






FCEB; 60 






321 




RTS 






FCEC; A2 


08 




322 


RDBYTE 


LDX 


tt*08 


iB BITS TD READ 


FCEE: 48 






323 


RDBYT2 


PHA 




;READ TWO TRANSITIONS 


FCEF; 30 


FA 


FC 


324 




JSR 


RD2BIT 


; (FIND EDGE) 


FCF2: 68 






325 




PLA 






FCF3; 2A 






326 




ROL 


A 


i NEXT BIT 


FCF4: AO 


3A 




327 




LDY 


#X3A 


i COUNT FOR SAMPLES 


FCF6; CA 






328 




DEX 
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FCF7 


DO 


F5 


FCEE 


329 




BNE 


RDBVT2 


FCF<? 


60 






330 




RTB 




FCFA 


20 


FD 


FC 


331 


RD3BIT 


JSR 


RDBIT 


FCFD 


88 






332 


RDDIT 


DEY 




FCFE 


AD 


60 


CO 


333 




LDA 


TAPEIN 


FDOl 


45 


2F 




334 




EGR 


LAST IN 


FD03 


iO 


Fa 


FCFD 


335 




BPL 


RDBIT 


FD05 


45 


2F 




336 




EOR 


LASTIN 


FD07 


B5 


2F 




337 




STA 


LASTIN 


FDOV 


CO 


80 




338 




CPV 


tt*80 


FDOB 


60 






339 




RTV; 




FDOC 


A4 


24 




340 


RDKEY 


LDV 


CH 


FDOE 


Bi 


28 




341 




LDA 


(BASL), V 


FDIO 


48 






342 




PHA 




FDll 


29 


3F 




343 




AND 


#*3F 


FD13 


09 


40 




344 




ORA 


#440 


FD15 


91 


28 




345 




STA 


(HASL), Y 


FD17 


68 






346 




PLA 




FDIS 


6C 


38 


00 


347 




JMP 


(KSWL) 


FDia 






0001 


348 




DD 


APPI FPF 


FDIB 






FDIB 


349 


KEVIN 


EQU 


■a- 


FDIB 


AO 


06 




350 




LDY 


#6 


FDID 


4C 


B4 


FB 


351 




JMP 


GDTDCX 


FD20 


EA 






352 




NOP 




FD21 






FD21 


353 


RDESC 


EQU 


i^ 


FD21 


20 


OC 


FD 


354 




JSR 


RDKEV 


FD24 


AO 


07 




355 




LDY 


#7 


FD26 


4C 


B4 


FB 


356 




J MP 


GOTQCX 


FDil9 








357 


* 






FD29 








3SS 


» RETURN 


FROM GOTDCX HERE 


FD29 








359 


# 






FDS"? 


BD 


06 


CO 


360 




STA 


SETSLOTC 


FD2C 


2B 






361 




PLP 




FD2D 


60 






362 




RT& 




FD2E 








363 




ELSE 




S 






364 


KEVIN 


INC 


RNDL 


B 






365 




BNE 


KEVIN2 


S 






366 




INC 


RNDH 


S 






367 


KEYIN2 


BIT 


KBD 


B 






368 




BPL 


KEVIN 


S 






369 




STA 


(BASL), Y 


S 






370 




LDA 


KBD 


S 






371 




on 


KBDSTRB 


FD2E 








372 




FIN 




FD2E 


60 






373 




RTS 




FD2F 






0001 


374 




DO 


APPI FPF 


FD2F 


20 


21 


FD 


375 


ESC 


JSR 


RDESC 


FD32 








376 




ELSE 




S 






377 


ESC 


JSR 


RDKEV 


FD32: 






378 




FIN 




FD32: 20 


AS 


FD 


379 




JSR 


ESCNEW 


FD35: 20 


OC 


FD 


380 


RDCHAR 


JSR 


RDKEV 


FD3S: C9 


9B 




381 




CMP 


#*9B 


FD3A: FO 


F3 


FD2F 


382 




BEQ 


ESC 


FD3C : 60 






383 




RTS 




FD3D: A5 


32 




384 


NOTCR 


LDA 


INVFLG 


FD3F:48 






385 




PHA 




FD40: A9 


FF 




386 




LDA 


t»*FF 


FD42: 




0001 


387 




DD 


APPLE2E 


FD42: EA 






388 




NGP 




FD43:EA 






389 




NPP 




FD44: 






390 




ELSE 




S 






391 




STA 


INVFLG 


FD44: 






392 




FIN 




FD44: BD 


00 


02 


393 




LDA 


IN, X 


FD47: 20 


ED 


FD 


394 




JSR 


GOUT 


FD4A: 6e 






395 




PLA 




FD4B; 85 


32 




396 




STA 


INVFLG 


FD4D: BD 


00 


02 


397 




LDA 


IN. X 


FD50: C9 


88 




398 




CMP 


#*88 


FD52: FO 


ID 


FD71 


399 




BEQ 


aCKSPC 


FD54: C9 


98 




400 




CMP 


#$98 


FD56: FO 


OA 


FD62 


401 




BEQ 


CANCEL 


FD5S:E0 


FB 




402 




CPX 


#»FS 


FD5A: 90 


03 


FD5F 


403 




BCC 


NOTCR I 


FD5C:20 


3A 


FF 


404 




JSR 


BELL 


FD5F: E8 






405 


NDTCRl 


INX 




FD60: DO 


13 


FD75 


406 




BNE 


NXTCHAR 


FD62: A9 


DC 




407 


CANCEL 


LDA 


#tDC 


FD64: 20 


ED 


FD 


408 




JGR 


GOUT 


FD67: 20 


8E 


FD 


409 


GETLN2 


JSR 


GROUT 


FD6A: A5 


33 




410 


GETLN 


LDA 


PROMPT 


FD6C : 20 


ED 


FD 


411 




JSR 


CDUT 


FD6F: A2 


01 




412 




LDX 


#«01 


FD71: SA 






413 


BCKSPC 


TXA 




FD72: FO 


F3 


FD67 


414 




BEQ 


GETLNZ 


FD74: CA 






415 




DEX 




FD75: 20 


35 


FD 


416 


NXTCHAR 


JSR 


RDCHAR 


FD7B; C9 


95 




417 




CMP 


*t»95 


FD7A; DO 


02 


FD7E 


418 




BNE 


CAPTST 


FD7C:B1 


28 




419 




LDA 


(BASL), V 


FD7E: 


C9 


ED 




420 


CAPTST 


CMP 


#*E0 



i DECR V UNTIL 

i TAPE TRANSITION 



; SET CARRY ON Y-RE(5. 



, SET SCREEN TO FLASH 



i GO TO USER KEY- IN 



, RDKEY/RRA0981 
J /RRA09B1 
i /RRA09ei 



i GET A KEY 
} GQD£=FIX1T 



i RESTORE BANK/RRA0981 
J RESTORE IRQ/RRA09ai 
, RETURN TO GALLER/RRA09BI 
i /RRA09Bi 
j INCR RND NUMBER 



i KEY DOWN? 

; LOOP UNTIL WE GET ONE 

i REPLACE FLASHING SCREEN 

; GET KEYCODE 

; GLR KEY STROBE 

i /RRA0981 

i /RRA0981 

i /RRA09B1 

J /RRA09ei 

; GET KEYCODE 

i /RRA0981 

; HANDLE ESC FUNCTION. 

; GO READ KEY 

; 'ESC? 

; YES, DON'T RETURN 



i /RRA09S1 

, DON'T CHANGE INPUT/RRA0981 

: TO N0RMAL/RRA09B1 

; /RRA0981 

i CONVERT TYPED CHAR TO 'NORMAL' 

; /RRA0981 

-. ECHO TYPED CHAR 



i CHECK FOR EDIT KEYS 
; - BACKSPACE 

; - CONTROL-X 

-. MARGIN? 

; YES, SOUND BELL 

i ADVANCE INPUT INDEX 

i BACKSLASH AFTER CANCELLED LINE 

i OUTPUT 'CR' 

i OUTPUT PROMPT CHAR 

; INIT INPUT INDEX 

;WILL BACKSPACE TO O 



i USE SCREEN CHAR 
i FOR CDNTROL-U 



; LONER CASE? 
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FDBO 


90 


02 


FDB4 


421 




BCC 


ADDINP 


FDB2 






0001 


422 




00 


APPLE2E 


FDB2 


29 


FF 




423 




AND 


#»FF 


FDB4 








424 




ELSE 




S 






423 




AND 


»»DF 


FDB4: 






426 




FIN 




FDB4: 9D 


00 


02 


427 


ADDINP 


STA 


IN, X 


FDS7: C9 


8D 




428 




CMP 


««BD 


FDa9: 00 


B2 


FD3D 


429 




BNE 


NDTCR 


FDBB:20 


9C 


FC 


430 




JSR 


CLREOL 


FDBE: A9 


8D 




431 


CROUT 


LDA 


tt«aD 


FD90: DO 


5B 


FDED 


432 




BNE 


GOUT 


FD72: A4 


3D 




433 


PRAl 


LDY 


AlH 


FD94: A6 


3C 




434 




LDX 


AIL 


FD96: 20 


8E 


FD 


43 S 


PRYX2 


JSR 


CROUT 


FD99: 20 


40 


F9 


436 




JSR 


PRNTYX 


FD9C : AO 


00 




437 




LDY 


#•00 


FD9E: A9 


AD 




43G 




LDA 


#*AD 


FDAO: 4C 


ED 


FD 


439 




JMP 


COUT 


FDA3: A 5 


3C 




440 


XAMS 


LDA 


AIL 


FDA5: 09 


07 




441 




ORA 


#•07 


FDA7: 85 


3E 




442 




STA 


A2L 


FDA9: A5 


3D 




443 




LDA 


AlH 


FDAB:85 


3F 




444 




STA 


A2H 


FDAD: A5 


3C 




445 


M0D8CHK 


LDA 


AIL 


FDAF: 29 


07 




446 




AND 


#•07 


FDBl: DO 


03 


FDB6 


447 




BNE 


DATAOUT 


FDB3: 20 


92 


FD 


448 


XAM 


JSR 


PRAl 


FDB6- A9 


AO 




449 


DATAOUT 


LDA 


««A0 


FDBB. 20 


ED 


FD 


450 




JSR 


COUT 


FDBB: Bl 


3C 




451 




LDA 


<A1L). Y 


FDBD: 20 


DA 


FD 


452 




JSR 


PRBYTE 


FDCO: 20 


BA 


FC 


453 




JSR 


NXTAl 


FDC3: 90 


E8 


FDAD 


4S4 




BCC 


M0D8CHK. 


FDC5:60 






455 


RTS4C 


RTS 




FDC6; 4A 






456 


XAMPM 


LSR 


A 


FDC7:90 


EA 


FDfl3 


457 




BCC 


XAM 


FDC9: 4A 






458 




LSR 


A 


FDCA: 4A 






459 




LSR 


A 


FDCB: AS 


3E 




460 




LDA 


A2L 


FDCD: 70 


02 


FDDl 


461 




BCC 


ADD 


FDCF: 49 


FF 




462 




EOR 


#*FF 


FDDl: 65 


3C 




463 


ADD 


ADC 


AIL 


FDD3: 48 






464 




PHA 




FDD4: A9 


BD 




465 




LDA 


ttSBD 


FDD6: 20 


ED 


FD 


466 




JSR 


COUT 


FDD9: 68 






467 




PLA 




FDDA: 48 






468 


PRBYTE 


PHA 




FDDB: 4A 






469 




LSR 


A 


FDDC: 4A 






470 




LSR 


A 


FDDD: 4A 






471 




LSR 


A 


FDDE: 4A 






472 




LSR 


A 


FDDF:20 


E5 


FD 


473 




JSR 


PRHEXZ 


FDE2: 68 






474 




PLA 




FDE3: 29 


OF 




475 


PRHEX 


AND 


#*0F 


FDE5: 09 


BO 




476 


PRHEXZ 


ORA 


#SB0 


FDE7: C9 


BA 




477 




CMP 


#«BA 


FDE9: 90 


02 


FDED 


47S 




BCC 


COUT 


FDES : 69 


06 




479 




ADC 


#•06 


FDED: 6C 


36 


00 


480 


GOUT 


JMP 


(C5WL) 


FDFO: C9 


AO 




481 


COUTl 


CMP 


#tAO 


FDF2: 90 


02 


FDF6 


482 




BCC 


COUTZ 


FDF4: 25 


32 




483 




AND 


INVFLG 


FDF6; 84 


35 




484 


CQUTZ 


STY 


YSAVl 


FDFS: 48 






485 




PHA 




FDF9: 20 


78 


FB 


48& 




JSR 


VIDWAIT 


FDFC : 68 






487 




PLA 




FDFD: A4 


35 




48S 




LDY 


YSAVl 


FDFF: 60 






489 




RTS 




FEOO: C6 


34 




490 


BLl 


DEC 


YSAV 


FE02; FO 


9F 


FDA3 


491 




BEG 


XAMB 


FE04: CA 






492 


BLANK 


DEX 




FE05: DO 


16 


FEID 


493 




BNE 


SETMDZ 


FE07: C9 


BA 




494 




CMP 


#»BA 


FE09; DO 


BB 


FDC6 


495 




BNE 


XAMPM 


FEOB; 85 


31 




496 


STOR 


STA 


MODE 


FEOD: A5 


3E 




497 




LDA 


A2L 


FEOF: 91 


40 




498 




STA 


(A3L), Y 


FEll: E6 


40 




499 




INC 


A3L 


FE13:D0 


02 


FE17 


500 




BNE 


RTS5 


FE15: E6 


41 




501 




INC 


ASH 


FE17: 60 






502 


RTS5 


RTS 




FEIB: A4 


34 




503 


SETMDDE 


LDY 


YSAV 


FEIA: B9 


FF 


01 


504 




LUA 


IN-1, Y 


FElD:a5 


31 




505 


SETMD2 


STA 


MODE 


FEIF: 60 






506 




RTS 




FE30: A2 


01 




507 


LT 


LDX 


#•01 


FE22: B5 


3E 




508 


LT2 


LDA 


A2L- X 


FE24: 95 


42 




509 




STA 


A4L- X 


FE26: 95 


44 




510 




STA 


A5L, X 


FE2a: CA 






511 




DEX 




FE29 


10 


F7 


FE22 


512 




BPL 


LT2 



I /RRA0961 

I DON'T CONVERT TO UPPER CASE! /RRA0?81 

I /RRA0981 

; SHIFT TO UPPER CASE 

I /RRA09ei 

iADD TO INPUT BUFFER 



jCLR TO EOL IF CR 



J < ALWAYS) 

i PR INT CR. Al IN HEX 



iSET TO FINISH AT 
i MOD 8-7 



; OUTPUT BLANK 

; OUTPUT BYTE IN HEX 

; NOT DONE YET. GO CHECK MOD 8 
; DONE. 

; DETERMINE IF MONITOR MODE IS 
j EXAMINE. ADD DR SUBTRACT 



iFGRM 2'S COMPLEMENT FOR SUBTRACT- 



i PRINT '=', THEN RESULT 



i PRINT BYTE AS 2 HEX DIGITS 
i (DESTROYS A-REG) 



, PRINT HEX DIGIT IN A-REG 

; LS8ITS ONLY. 



; VECTOR TO USER OUTPUT ROUTINE 

/DON'T OUTPUT CTRL'S INVERSE. 

; MASK WITH INVERSE FLAG 

i SAVE Y-REG 

; SAVE A-REG 

; OUTPUT CHR & CHECK FOR CTRL-S 

; RESTORE A-REG 

i AND Y-REG 

; RETURN TO SENDER, . . 



i SLANK TO MON 

,- AFTER BLANK 

i DATA STORE MODE? 

; NO; XAM, ADD- OR SUBTRACT 

; KEEP IN STORE MODE 

i STORE AS LOW BYTE AT (A3) 

-, INCR A3, RETURN. 



.■ SAVE CONVERTED ' : ' 
, '-', '. ' AS MODE 



; COPY A2 (2 BYTES) TO 
; A4 AND A5 
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FE2B; 60 






513 




RTS 




FE3C -, B 1 


3C 




514 


novE 


LDA 


(AIL), Y 


FE3E: 91 


42 




515 




STA 


(A4L), Y 


FE30: 20 


B4 


FC 


516 




JSR 


NXTA4 


FE33: 90 


F7 


FE2C 


517 




BCC 


MOVE 


FE35; 60 






5ia 




RTS 




FE36: Bl 


3C 




517 


VFY 


LDA 


(AIL), Y 


FE3S: Dl 


42 




520 




CMP 


(A4L), V 


FE3A: FO 


IC 


FE5S 


521 




SEQ 


VFYOK 


FE3C; 20 


92 


FD 


522 




JSR 


PRAl 


FE3F: Bl 


3C 




523 




LDA 


(A3L), Y 


FE41: 20 


DA 


FD 


524 




JSR 


PRBYTE 


FE44: A9 


AO 




525 




LDA 


ttSAO 


FE46; 20 


ED 


FD 


526 




JSR 


COUT 


FE49: A9 


AB 




527 




LDA 


#*A8 


FE4B: 20 


ED 


FD 


528 




JSR 


COUT 


FE4E: Bl 


42 




527 




LDA 


<A4L), Y 


FE50: 20 


DA 


FD 


530 




JSR 


PRBYTE 


FE53: A9 


A7 




531 




LDA 


*t*A9 


FE55: 20 


ED 


FD 


532 




JSR 


COUT 


FESS: 20 


B4 


FC 


533 


VFVOK 


JSR 


NXTA4 


FE5B:90 


D9 


FE36 


534 




BCC 


VFY 


FE5D: 60 






535 




RTS 




FE5E: 20 


75 


FE 


536 


LIST 


JSR 


AlPC 


FE61: A9 


14 




537 




LDA 


#tl4 


FE63: 48 






538 


LIST2 


PHA 




FE64; 20 


DO 


FS 


539 




JSR 


INSTDSP 


FE67: 20 


53 


F7 


540 




JSR 


PCADJ 


FE6A: B5 


3A 




541 




STA 


PCL 


FE6C: 84 


3B 




542 




STY 


PCH 


FE6E: 68 






543 




PLA 




FE6F: 38 






544 




SEC 




FE70; E9 


01 




545 




SBC 


#*01 


FE72: DO 


EF 


FE63 


546 




BNE 


LIST2 


FE74; 60 






547 




RTS 




FE75: 8A 






548 


AlPC 


TXA 




FE76: FO 


07 


FE7F 


549 




BEQ 


AlPCRTS 


FE7S: D5 


3C 




550 


AlPCLP 


LDA 


AIL, X 


FE7A: 95 


3A 




551 




STA 


PCL. X 


FE7C: CA 






552 




DEX 




FE7D: 10 


F9 


ht/B 


553 




EHL 


AlPCLP 


FE7F: 60 






554 


AlPCRTS 


RTS 




FESO: AO 


3F 




555 


SETINV 


LDY 


#S3F 


FEB2: DO 


02 


FE86 


556 




BNE 


SETIFLG 


FE84: AO 


FF 




557 


SETNORM 


LDY 


#*FF 


FE86: 84 


32 




558 


SETIFLS 


STY 


INVFLG 


FE88: 60 






559 




RTS 




FE89: A9 


00 




560 


SETKBD 


LDA 


#«00 


FE8B:85 


3E 




561 


IMPORT 


STA 


A2L 


FE8D: A3 


38 




562 


INPRT 


LDX 


ttKSWL 


FE8F: AO 


IB 




563 




LDY 


#KEYIN 


FE91: DO 


OS 


FE7E 


564 




BNE 


IDPRT 


FE73: A7 


00 




565 


SETVID 


LDA 


ttSOO 


FE95: B5 


3E 




566 


QUTPORT 


STA 


A2L 


FE77: A2 


36 




567 


DUTPRT 


LDX 


#CSWL 


FE99: AO 


FO 




568 




LDY 


#C0UT1 


FE9B: A 5 


3E 




569 


IDPRT 


LDA 


A2L 


FE9D: 29 


OF 




570 




AND 


#*0F 


FE7F: FO 


06 


FEA7 


571 




BEQ 


lOPRTl 


FEAl: 09 


CO 




572 




DRA 


»<10ADR 


FEA3: AO 


00 




573 




LDY 


#*00 


FEA5; FO 


02 


FEA9 


574 




BEQ 


IDPRT2 


FEA7: A9 


FD 




575 


lOPRTl 


LDA 


#<C0UT1 


FEA9: 




FEA7 


576 


I0PRT2 


EQU 


* 


FEA7: 74 


00 




577 




STY 


LOCO, X 


FEA8: 95 


01 




578 




STA 


LOC 1 , X 


FEAD: 60 






579 




RTS 




FEAE; EA 






580 




NOP 




FEAF: 00 






581 


CKSUMFIX 


DFB 





FEBO: 






582 


* i — 


■CORRECT 


CKSUM AT 


FEBO: 4C 


00 


ED 


583 


XBASIC 


JMP 


BASIC 


FEB3: 4C 


03 


EO 


584 


BASCONT 


JMP 


BASIC2 


FEB6: 20 


75 


FE 


585 


GO 


JSR 


AlPC 


FEB 9: 20 


3F 


FF 


586 




JSR 


RESTORE 


FEBC:6C 


3A 


00 


587 




JMP 


(PCL) 


FEBF: 4C 


D7 


FA 


588 


REGZ 


JMP 


REGDSP 


FEC2: 60 






589 


TRACE 


RTS 




FEC3: EA 






590 




NOP 




FEC4: 60 






591 


STEPZ 


RTS 




FEC5: C2 


F2 


F9 El 


592 




ASC 


'Bryan ' 


FECA: 4C 


F8 


03 


593 


USR 


JMP 


USRADR 


FECD; A9 


40 




594 


WRITE 


LDA 


#*40 


FECF: 20 


C9 


FC 


595 




JSR 


HEADR 


FED2: AO 


27 




596 




LDY 


#*37 


FED4: A2 


00 




597 


WRl 


LDX 


#too 


FED6: 41 


3C 




598 




EOR 


(AIL, X) 


FED8: 48 






597 




PHA 




FED9: Al 


3C 




600 




LDA 


(AIL. X) 


FEDB: 20 


ED 


FE 


601 




JSR 


WRBYTE 


FEDE: 20 


BA 


FC 


602 




JSR 


NXTAl 


FEEl : AO 


ID 




603 




LDY 


#*1D 


FEE3: 68 






604 




PLA 





^MOVE (Al) THRU <A2) TO ( A4 ) 



jVERIFY (Al) THRU ( A2 ) 
i WITH <A4) 



; MOVE Al (2 BYTES) TO 

; PC IF SPEC 'D AND 

; DISASSEMBLE 20 INSTRUCTIONS. 

; ADJUST PC AFTER EACH INSTRUCTION. 



; NEXT OF 20 INSTRUCTIONS 



i IF USER SPECIFIED AN ADDRESS. 
; COPY IT FROM Al TO PC. 
i YEP. SO COPY IT. 



; SET FOR INVERSE VID 

J VIA COUTl 

iSET FOR NORMAL VID 



; DO 'IN#0' 

i DO 'IN#AREG ' 



; DO 'PR#0' 

i DO 'PRttAREG ' 



i SET INPUT/OUTPUT VECTORS 



i /RRA0981 

E TIME. 

; TO BASIC, COLD START 

i TO BASIC, WARM START 

j ADDR TO PC IF SPECIFIED 

i RESTORE FAKE REGISTERS 

i AND GO ! 

j GO DISPLAY REGISTERS 

i TRACE IS GONE 

; STEP IS GONE 

; JUMP TO CONTROL-Y VECTOR IN RAM 
i TAPE WRITE ROUTINE 
i WRITE 10-SEC HEADER 



16 
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FEe4: 90 


EE 


FED4 


605 




sec 


UIRl 


FEE6: AO 


22 




606 




LDY 


#«22 


FEES: 20 


ED 


FE 


607 




JSR 


WRBYTE 


FEEB: FO 


4D 


FF3A 


608 




BEQ 


BELL 


FEED: A2 


10 




609 


WRBYTE 


LDX 


#«10 


FEEF: OA 






610 


WRBYT2 


ASL 


A 


FEFO: 20 


D6 


FC 


611 




JSR 


WRBIT 


FEF3: DO 


FA 


FEEF 


612 




BNE 


WRBYT2 


FEF5; 60 






613 




RTS 




FEF6: 20 


00 


FE 


614 


CRflON 


JSR 


BLl 


FEF9: 68 






615 




PLA 




FEFA: 68 






616 




PLA 




FEFB: DO 


6C 


FF69 


617 




BNE 


MONZ 


FEFD: 20 


FA 


FC 


618 


READ 


JSR 


RD2iBIT 


FFOO: A9 


16 




619 




LDA 


#»16 


FF02: 20 


C9 


FC 


620 




JSR 


HEADR 


FF05:85 


2E 




621 




STA 


CHKSUM 


FF07: 20 


FA 


FC 


622 




JSR 


RD2BIT 


FFOA: AO 


24 




623 


RD2 


LDY 


tt»24 


FFOC: 20 


FD 


FC 


624 




JSR 


RDBIT 


FFOF: BO 


F9 


FFOA 


625 




BCS 


RD2 


FFll; 20 


FD 


FC 


626 




JSR 


RDBIT 


FF14: AO 


3B 




627 




LDY 


#»3B 


FF16; 20 


EC 


FC 


62S 


RD3 


JSR 


RDBYTE 


FFi?: 81 


3C 




629 




STA 


(AIL, X) 


FFIB: 45 


2E 




630 




EOR 


CHKSUM 


FFID: 85 


2E 




631 




STA 


CHKSUM 


FFIF: 20 


BA 


FC 


632 




JSR 


NXTAl 


FF22: AO 


35 




633 




LDY 


#»35 


FF24: 90 


FO 


FF16 


634 




BCC 


RD3 


FF26: 20 


EC 


FC 


635 




JSR 


RDBYTE 


FF29: C5 


2E 




636 




CMP 


CHKSUM 


FF2B:F0 


OD 


FF3A 


637 




BEQ 


BELL 


FF2D: A9 


C5 




63B 


PRERR 


LDA 


tt*C5 


FF2F: 20 


ED 


FD 


639 




JSR 


CDUT 


FF32: A9 


D2 




640 




LDA 


#«D2 


FF34: 20 


ED 


FD 


641 




JSR 


CDUT 


FF37: 20 


ED 


FD 


642 




JSR 


CDUT 


FF3A: A9 


S7 




643 


BELL 


LDA 


#JB7 


FF3C: 4C 


ED 


FD 


644 




J MP 


CDUT 


FF3F: A5 


48 




645 


RESTORE 


LDA 


STATUS 


FF41; 48 






646 




PHA 




FF42; A5 


45 




647 




LDA 


ASH 


FF44: A6 


46 




648 


RESTRl 


LDX 


XREG 


FF4fa: A 4 


47 




649 




LDY 


YREG 


FF4B: 2S 






650 




PLP 




FF49; 60 






651 




RTS 




FF4A: 85 


45 




652 


SAVE 


STA 


ASH 


FF4C: 86 


46 




653 


SAVl 


STX 


XREG 


FF4E: 84 


47 




654 




STY 


YREG 


FF50; OS 






655 




PHP 




FF51: 68 






656 




PLA 




FF52: 85 


48 




657 




STA 


STATUS 


FF54: BA 






658 




TSX 




FF55: 86 


49 




659 




STX 


SPNT 


FF57: D8 






660 




Cl,D 




FF5B: 60 






661 




RTK 




FF59; 20 


84 


FE 


662 


DLDRST 


JSR 


SETNORM 


FF5C: 20 


2F 


FB 


663 




JSR 


INIT 


FF5F: 20 


93 


FE 


664 




JSR 


SETVID 


FF62; 20 


89 


FE 


665 




JSR 


SETKBD 


FF65, DB 






666 


MON 


CLD 




FF66: 20 


3A 


FF 


667 




JSR 


BELL 


FF69: A9 


AA 




668 


nONZ 


LDA 


#*AA 


FF6E; 85 


33 




669 




STA 


PROMPT 


FF6D: 20 


67 


FD 


670 




JSR 


GETLNZ 


FF70: 20 


C7 


FF 


671 




JSR 


ZMDDE 


FF73: 20 


A 7 


FF 


672 


NXTITN 


JSR 


GETNUM 


FF76: 84 


34 




673 




STY 


YSAV 


FF7B: AO 


17 




674 




LDY 


#*17 


FF7A' 88 






675 


CHRSRCH 


DEY 




FF7B: 30 


EB 


FF65 


676 




BMI 


MDN 


FF7D: D9 


CC 


FF 


677 




CMP 


CHRTBL, Y 


FFBO; DO 


FS 


FF7A 


678 




BNE 


CHRSRCH 


FFB2: 20 


BE 


FF 


679 




JSR 


TOSUB 


FFS5: A4 


34 




680 




LDY 


YSAV 


FFS7: 4C 


73 


FF 


681 




JMP 


NXTITM 


FF8A: A2 


03 




6B2 


DIG 


LDX 


#*03 


FF8C: OA 






633 




AbL 


A 


FFSD: OA 






684 




ASL 


A 


FFSE; OA 






685 




ASt. 


A 


FF8F: OA 






686 




ASI. 


A 


FF90: OA 






687 


NXTBn 


ASL 


A 


FF91- 26 


3E 




688 




RGL 


A2L 


FF93: 26 


3F 




689 




RGL 


A2H 


FF95: CA 






690 




DFX 




FF96; 10 


F8 


FF90 


691 




EPl. 


NXTBIT 


FF98: A5 


31 




692 


NXTBAri 


LDA 


MODE 


FF9A: DO 


06 


FFA2 


693 




BNE 


NXTDS2 


FF9C: B5 


3F 




694 




LDA 


A2H, X 


FF9E: 95 


3D 




695 




STA 


AlH, X 


FFAO: 95 


41 




696 




STA 


A3H. X 



HANDLE CR AS BLANK 

THEN POP STACK 

AND RETURN TO MDN 
( ALWAYS ) 

TAPE READ - FIND TAPEIN EDGE 
DELAY 3- 5 SECONDS 

INITIAL CHECKSUM = *FF 
FIND AN EDGE 
LOOK FOR SYNC BIT 

(SHORT O) 
LOOP 'TIL FOUND 
SKIP 2ND HALF CYCLE 
INDEX FOR 0/1 TEST 
READ A BYTE 
PUT IT AT (Al ) 
UPDATE RUNNING CHECKSUM 

INCR Al, COMPARE TO A2 

COMPENSATE 0/1 INDEX 

REPEAT 'TIL DONE. 

READ CHECKSUM BYTE 

DOES THE RECORDED CHKSM MATCH OURS? 

YEP, READ OK, BEEP AND RETURN. 
PRINT 'ERR', THEN FALL INTO 

FWEEPER, 



MAKE A JOYFUL NOISE, THEN RETURN. 



RESTORE 6502 REGISTER CONTENTS 
USED BY DEBUG SOFTWARE 



SAVE 6502 REGISTER CONTENTS 
FOR DEBUG SOFTWARE 



SET SCREEN MODE 
AND INIT KBD/SCREEN 
AS I/O DEVS, 

MUST SET HEX MODE! 
FWEEPER. 
'*' PROMPT FOR MONITOR 

READ A LINE OF INPUT 

CLEAR MONITOR MODE, SCAN IDX 

GET ITEM, NON-HEX 

CHAR IN A-REG. 

X-REG=0 IF NO HEX INPUT 

COMMAND NOT FOUND. BEEP ¥/, TRY AGAIN. 

FIND COMMAND CHAR IN TADt.E 

NOT THIS TIME 

GOT IT! CALL CORRESPONDING SUBROUTINE 

PROCESS NEXT ENTRY ON HIS LINE 



GOT HEX DIGIT, 
SHIFT INTO A2 



LEAVE X=*FF IF DIG 



IF MODE IS ZERO, 
THEN COPY A2 TO Al AND A3 
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FFA2: 
FFA3: 
FFA5: 
FFA7: 
FFA9: 
FFAB: 
FFAD: 
FFBO: 
FFBl: 
FFB3; 
FFB5: 
FFB7: 
FFB9: 
FFBB: 
FFBD: 
FFBE: 
FFCO: 
FFCl: 
FFC4; 
FFC5: 
FFC7: 
FFC9: 
FFCB: 
FFCC: 
FFCD; 
FFCE: 
FFCF: 
FFDO: 
FFDl: 
FFD2: 
FFD3: 
FFD4; 
FFD5: 
FFD6; 
FFD7: 
FFD8: 
FFD9: 
FFDA: 
FFDB: 
FFDC: 
FFDD; 
FFDE: 
FFDF; 
FFEO: 
FFEl: 
FFE2: 
FFE3; 
FFE4: 
FFE5; 
FFE6: 
FFE7: 
FFEB: 
FFE9: 
FFEA: 
FFEB: 
FFEC: 
FFED: 
FFEE: 
FFEF: 
FFFO: 
FFFl: 
FFF2: 
FFF3: 
FFF4: 
FFF5: 
FFF6: 
FFF7: 
FFFB: 
FFF9: 
FFFA: 
FFFC: 
FFFE: 



ES 




697 


NXTBS2 


FO F3 


FF9B 


698 




DO 06 


FFAD 


699 




A3 00 




700 


GETNUM 


S6 3E 




701 




86 3F 




703 




B9 00 


02 


703 


NXTCHR 


C8 




704 




49 BO 




705 




C9 OA 




706 




90 D3 


FFBA 


707 




69 as 




70B 




09 FA 




709 




BO CD 


FF8A 


710 




60 




711 




A9 FE 




712 


TDSUB 


4B 




713 




B9 E3 


FF 


714 




43 




715 




A5 31 




716 




AO 00 




717 


ZMDDE 


S4 31 




7ia 




60 




719 




BC 




720 


CHRTBL 



FB 03 
62 FA 
40 FA 



726 
727 

7as 

729 

730 

731 

732 

733 

734 

735 

736 

737 

73a 

739 

740 

741 

742 

743 SUBTBL 

744 

745 

746 

747 

74B 

749 

750 

751 

752 

753 

754 

755 

756 

757 

758 

7S9 

760 

761 

762 

763 

764 

765 

766 

767 

768 



INX 




BEQ 


NXTBAS 


BNE 


NXTCHR 


LDX 


#too 


STX 


A2L 


STX 


A2H 


LDA 


IN, Y 


INY 




EHR 


#«B0 


CMP 


t**OA 


BCC 


DIG 


ADC 


#SSB 


CMP 


#IFA 


BCS 


DIG 


RTS 




LDA 


«:gd 


PHA 




LDA 


SUBTBL- Y 


PHA 




LDA 


MODE 


LDY 


#100 


STY 


MODE 


RTS 




DFB 


SBC 


DFB 


¥B2 


DFB 


$BE 


DFB 


*B2 


DFB 


«EF 


DFB 


*C4 


DFB 


¥B2 


DFB 


*A9 


DFB 


*BB 


DFB 


»A6 


DFE 


*A4 


DFB 


106 


DFB 


*95 


DFB 


107 


DFB 


*02 


DFB 


»05 


DFB 


»F0 


DFB 


*00 


DFB 


*EB 


DFB 


S93 


DFB 


*A7 


DFB 


«C6 


DFB 


S99 


DFB 


SB 2 


DFB 


SC9 


DFB 


*BE 


DFB 


«C1 


DFB 


*35 


DFB 


«ec 


DFB 


«C4 


DFB 


*96 


DFB 


*AF 


DFB 


«17 


DFB 


517 


DFB 


*2B 


DFB 


IIF 


DFB 


*B3 


DFB 


I7F 


DFB 


»5D 


DFB 


*CC 


DFB 


*B5 


DFB 


*FC 


DFB 


*17 


DFB 


*17 


DFB 


*F5 


DFB 


»03 


DW 


NMI 


DW 


RESET 


DU 


IRQ 



BR IF HEX DIGIT 



i DISPATCH TD SUBROUTINE, BY 

,- PUSHING THE HI-ORDER SUBR ADDR, 

; THEN THE LQ-DRDER SUBR ADDR 

i ONTO THE STACK, 

; (CLEARING THE MODE, SAVE THE OLD 

: MODE IN A-REGt, 

AND 'RTS' TO THE SUBROUTINE! 

■"C (BASIC WARM START) 

"Y <USER VECTOR) 

■-■E <OPEN AND DISPLAY REGISTERS) 

T (ONCE WAS TRACE; NEVER USED, ) 

V (MEMORY VERIFY) 

'-■K (INSSLOT) 

S (ONCE UAS STEP; NOW NEVER USED, 

-P (PRttSLOT) 

-B (BASIC COLD START) 

'-' (SUBTRACTION) 

'+' (ADDITION) 

M (MEMORY MOVE) 

'<' (DELIMITER FOR MOVE, VFY) 

N (SET NORMAL VIDEO) 

I (SET INVERSE VIDEO) 

L (DISASSEMBLE 20 INSTRS) 

W (WRITE TO TAPE) 

O (EXECUTE PROGRAM) 

R (READ FROM TAPE) 

': ' (MEMORY FILL) 

', ' (ADDRESS DELIMITER) 

'CR ' (END OF INPUT) 
i BLANK 

; TABLE OF LO-ORDER MONITOR ROUTINE 
DISPATCH ADDRESSES 



i NON-MASKABLE INTERRUPT VECTOR 

. p£S£T VECTOR 

; INTERRUPT REQUEST VECTOR 



ii 



Monitor ROM Listings 



Monitor Symbol Table, 
Sorted by Symbol 



3D 


AlH 


3C 


AIL 


FE75 


AlPC 


FE78 


AlPCLP 


FE/F-- 


AlPCRTS 


3F 


A2H 


3E 


A2L 


41 


ASH 


40 


A3L 


43 


A4H 


42 


A4L 


45 


A5H 


44 


A5L 


45 


ACC 


FDD J 


ADD 


FD84 


ADDINP 


FBF4 


ADVANCE 


703F5 


AMPERV 


01 


APPLE2E 


FB60 


APPLEII 


7 2B 


BAS2H 


7 2A 


BAS2L 


FECI 


BASCALC 


FBDO 


BASCLC2 


■?fe:b3 


BASCONT 


29 


BASH 


EOOO 


BASIC 


E003 


BAS1C2 


28 


BASL 


FD7i 


BCKSPC 


FBD9 


BELLI 


FBE4 


BELL2 


FF3A 


BELL 


FEOO 


OLl 


7FE04 


BLANK 


FA4C 


BREAK 


03F0 


BRKV 


FCIO 


BS 


FD62 


CANCEL 


FD7E 


CAPTST 


F9S4 


CHARl 


F9BA 


CHAR 2 


2E 


CHKSUM 


FF7A 


CHRSRCH 


24 


CH 


FFCC 


CHRTBL 


7FEAF 


CKSUMFIX 


7C059 


CLRANO 


7C05B 


CLRANl 


7C05D 


CLRAN2 


7C05F 


CLRAN3 


FC9C 


CLREOL 


7FC9E 


CLREOLZ 


7FC42 


CLREOP 


CFFF 


CLRROM 


FB38 


CLRSC2 


FS3C 


CLRSC3 


?Fe32 


CLRSCR 


FS36 


CLRTOP 


30 


COLOR 


FDED 


COUT 


FDFO 


cauTi 


FDF6 


COUTZ 


FD8E 


CRDUT 


FC62 


CR 


^FEFb 


CHMDN 


7 37 


CSWH 


36 


CSWL 


25 


CV 


FDB6 


DATAOUT 


FFBA 


DIG 


FB02 


DISKID 


F8A5 


ERR 


FD2r 


ESC 


FC2C 


ESCl 


FBA5 


ESC NEW 


FB9B 


ESCNDW 


FB97 


ESC OLD 


FA9B 


FIXSEV 


F962 


FMTl 


F9A6 


FHT2 


2E 


FORMAT 


F847 


GBASCALC 


27 


GBASH 


26 


GBASL 


F856 


GBCALC 


FSA9 


GETFMT 


7FD6A 


OETLN 


FD67 


GETLNZ 


FFA7 


GETNUM 


FBB4 


GOTOCX 


FEB6 


GO 


2C 


H2 


FCC9 


HEADR 


7C057 


HIRES 


7C055 


HISCR 


7FS19 


HLINE 


F81C 


HLINEl 


FC5S 


HOME 


F89B 


I EVEN 


7FA6F 


INI TAN 


FB2F 


INIT 


7FESB 


INPORT 


7FE8D 


INPRT 


FB82 


INSDSl 


7F88C 


IN5DS2 


FSDO 


INSTDSP 


32 


INVFLG 


0200 


IN 


COOO 


lOADR 


FEA7 


lOPRTl 


FEA9 


I0PRT2 


FE9B 


IDFRT 


03FE 


IRQLOC 


FA40 


IRQ 


FC99 


ISPAGEl 


FC9I 


ISSLDTS 


COOO 


KBD 


COlO 


KSDSTRB 


FBB8 


KBDWAIT 


FDIB 


KEY IN 


7 39 


KSWH 


3B 


KSWL 


2F 


LASTIN 


2F 


LENGTH 


FC66 


LF 


0400 


LINEl 


FE63 


LISTS 


7FE5E 


LIST 


2C 


LMNEM 


00 


LOCO 


01 


LOCI 


C056 


LORES 


C054 


LOWSCR 


7FE20 


LT 


FE22 


LT2 


2E 


MASK 


7C052 


MIXCLR 


C053 


MIXSET 


F9C0 


MNEML 


FAOO 


MNEMR 


FBBE 


MNNDXl 


F8C2 


MNNDX2 


F8C9 


MNNDX3 


FDAD 


MDD8CHK 


31 


MODE 


FF65 


MON 


FF69 


MDNZ 


FE2C 


MOVE 


07FS 


MSLOT 


7FAB1 


NEWMON 


03FB 


NMI 


FAA3 


NOFIX 


FD5F 


NDTCRl 


FD3D 


NOTCR 


FB94 


NOWAIT 


FCBA 


NXTAl 


FCB4 


NXTA4 


FF98 


NXTBAS 


FF90 


NXTBIT 


FFA2 


NXTBS2 


FAC7 


NXTBYT 


FD75 


NXTCHAR 


FFAD 


NXTCHR 


7F85F 


NXTCOL 


FF73 


NXTITM 


FA59 


OLDBRK 


■^FF59 


DLDRST 


FCE2 


ONEDLV 


7FE95 


OUTPORT 


7FE97 


OUTPRT 


C064 


PADDLO 


7F954 


PCADJ2 


F956 


PCADJ3 


F953 


PCADJ 


F95C 


PCADJ4 


3B 


PCH 


3A 


PCL 


7 95 


PICK 


F80E 


PLOTl 


F800 


PLOT 


FD92 


PRAl 


F910 


PRADRI 


F914 


PRADR2 


F926 


PRADR3 


F92A 


PRADR4 


F930 


PRADR5 


F94A 


PRBL2 


7F94C 


PRBL3 


F948 


PRBLNK 


FDDA 


PRBYTE 


FB25 


PREAD2 


7FB1E 


PREAD 


7FF2D 


PRERR 


FDE5 


PRHEXZ 


7FDE3 


PRHEX 


FBF5 


PRMNl 


F8F9 


PRMN2 


-^F94I 


PRNTAX 


F8DB 


PRNTBL 


FBD4 


PRNTDP 


7F944 


PRNTX 


F940 


PRNTYX 


33 


PROMPT 


FD96 


PRyX2 


C070 


PTRIG 


FAFD 


PWRCON 


03F4 


PWREDUP 


FAA6 


PWRUP 


FCFA 


RD2BIT 


FFOA 


RD2 


FF16 


RD3 


C018 


RD80ST0RE 


FCFD 


RDBIT 


FCEE 


RDBYT2 


FCEC 


RDBYTE 


FD35 


RDCHAR 


COIS 


RDCXROM 


FCS4 


RDCX 


FD21 


RDESC 


FDOC 


RDKEV 


COIC 


RDPAGE2 


FAE4 


RDSPl 


7FEFD 


READ 


FAD7 


REGDSP 


7FEBF 


REGZ 


7F938 


RELADR 


FA62 


RESET 


FF3F 


RESTORE 


7FF44 


RESTRl 


FADA 


RGDSPl 


2D 


RMNEM 


7 4F 


RNOH 


7 4E 


RNDL 


FB19 


RTBL 


FBOC 


RTMASK 


F87F 


RTMSKZ 


FB31 


RTSl 


F961 


RTS2 


FBEF 


RTS2B 


FB2E 


RTS2D 


FBFC 


RTS3 


FCC8 


RTS4B 


7FDC5 


RTS4C 


FC2D 


RTS4 


FE17 


RTS5 


FF4C 


5AV1 


7FF4A 


SAVE 


7FS71 


SCRN 


FB79 


SCRN2 


7FC70 


SCROLL 


C058 


SETANO 


C05A 


SETANl 


7C05C 


SETAN2 


7C05E 


SETAN3 


7FS64 


SETCOL 


7FB40 


SETGR 


FE86 


SETIFLG 


C007 


SETINTCXRDM 


7FE80 


SETINV 


FE89 


SETKBD 


FEID 


SETMDZ 


7FE18 


SETMODE 


FE84 


SET NORM 


7FAA9 


SETPG3 


FAAB 


SETPLP 


7FB6F 


SETPWRC 


C006 


SETSLOTCXROM 


?FB3<? 


SETTXT 


FE93 


SETVID 


FB4B 


SETWND 


7 2F 


SIGN 


FAB A 


SLOOP 


03F2 


SOFTEV 


C030 


SPKR 


49 


SPNT 


48 


STATUS 


7FEC4 


STEPZ 


FB65 


STITLE 


7FE0D 


STOR 


FBFO 


STORADV 


FFE3 


SUBTBL 


7FB5B 


TABV 


C060 


TAPE IN 


C020 


TAPEOUT 


FB09 


TITLE 


FFBE 


TDSUB 


7FEC2 


TRACE 


C050 


TXTCLR 


0051 


TXTSET 


FCIA 


UP 


7FECA 


USR 


03F8 


USRADR 


2D 


V2 


7FBB3 


VERSION 


FE5B 


VFYOK 


FE36 


VFY 


FBFD 


VIDOUT 


FB78 


VIDWAIT 


FB2e 


VLINE 


FB26 


VLINEZ 


FC22 


VTAB 


FC24 


VTABZ 


FCAB 


WAIT 


FCA9 


WAIT2 


FCAA 


WAIT3 


23 


WNDBTM 


20 


WNDLFT 
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22 WNDTDP 21 MNDWDTH FED4 MRl FCD6 URBIT 

FEEF WRBYT2 FEED WRDYTE ?FECD WRITE FCE5 HRTAPE 

FDB3 XAM FDA3 XAMB FDC6 XAMPM 7FEB0 XBASIC 

FC72 XGOTDCX FBll XLTBL 46 XREO 47 YREG 

34 YSAV 35 YSAVl FCDB ZERDLY FFC7 ZMODE 

»• SUCCESSFUL ASSEMBLY : » NO ERRORS 
** ASSEMBLER CREATED ON 05-JAN-B2 000004 
»# TOTAL LINES ASSEMBLED 1435 
*» FREE SPACE PAGE COUNT 67 
2 BJ5- 5RC2 
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Monitor Symbol Table, 
Sorted by Address 



00 


LOCO 


01 


APPLE2E 


01 


LOCI 


20 


WNDLFT 


21 


WNDWDTH 


22 


WNDTDP 


23 


WNDBTM 


24 


CH 


35 


cy 


26 


GBASL 


27 


GBASH 


28 


BASL 


29 


BASH 


? 2A 


BAS3L 


7 2B 


DAS2H 


2C 


H2 


2C 


LMNEM 


2D 


V2 


2D 


RMNEM 


2E 


MASK 


2E 


CHKSUM 


2E 


FORMAT 


2F 


LAST IN 


2F 


LENGTH 


? 2F 


SIGN 


30 


COLOR 


31 


MODE 


32 


INVFLG 


33 


PROMPT 


34 


YSAV 


35 


YSAVl 


36 


CSWL 


? 37 


CSWH 


38 


I^SWL 


7 39 


KSWH 


3A 


PCL 


3B 


PCH 


3C 


AIL 


3D 


AlH 


3E 


A2L 


3F 


A2H 


40 


A3L 


41 


A3H 


42 


A4L 


43 


A4H 


44 


A5L 


45 


ASH 


45 


ACC 


46 


XREG 


47 


YREG 


48 


STATUS 


49 


SPNT 


? 4E 


RNDL 


7 4F 


RNDH 


7 95 


PICK 


0200 


IN 


03F0 


BRKV 


03F2 


SOFTEV 


03F4 


PWREDUP 


703F5 


AMPERV 


03Fa 


USRADR 


03FB 


NMI 


03Fe 


IRQLOC 


0400 


LINEl 


07FB 


MSLQT 


COOO 


lOADR 


COOO 


KBD 


C006 


SET3L0TCXR0M 


C007 


SETINTCXROM 


COlO 


KBD5TRB 


C015 


RDCXROM 


COIB 


RD80ST0RE 


COIC 


RDPAGE2 


COSO 


TAPEDUT 


C030 


SPKR 


COSO 


TXTCLR 


C051 


TXTSET 


7C052 


MIXCLR 


C053 


Mixser 


C054 


LOUSCR 


■?C055 


HISCR 


C056 


LORES 


7C057 


HIRES 


C05B 


SETANO 


7C059 


CLRANO 


C05A 


SET AN 1 


7C05B 


CLRANl 


7C05C 


SETAN2 


■?C05D 


CLRAN2 


7C05E 


SETAN3 


7C05F 


CLRAN3 


C060 


TAPEIN 


C064 


PADDLO 


C070 


PTRIG 


CFFF 


CLRROM 


EOOO 


BASIC 


E003 


BASIC2 


F800 


PLOT 


FBOC 


RTMABK 


FBOE 


PLOTl 


■?Fai9 


HLINE 


FBIC 


HLINEl 


FB26 


VLINEZ 


FS28 


VLINE 


F831 


RTSl 


7F832 


CLRSCR 


FB36 


CLRTOP 


FB38 


CLRSC2 


F83C 


CLRSC3 


FS47 


GBASCALC 


F856 


GBCALC 


7FB5F 


NXTCOL 


7FS64 


SETCOL 


7F871 


SCRN 


FB?? 


SCRN2 


F87F 


RTMSKZ 


F8B2 


INSDSl 


?FB8C 


INSDS2 


F89B 


lEVEN 


FSA5 


ERR 


FSA9 


GETFMT 


FBBE 


MNNDXl 


F8C2 


MNNDX2 


FBC9 


MNNDX3 


F3D0 


INSTDSP 


FaD4 


PRNTDP 


FBDB 


PRNTBL 


FBF5 


PRMNl 


F8F9 


PRMN2 


F910 


PRADRl 


F914 


PRADR2 


F926 


PRADR3 


F92A 


PRADR4 


F930 


PRADR5 


7F93S 


RELADR 


F940 


PRNTYX 


7F941 


PRNTAX 


7F944 


PRNTX 


F94B 


PRBLNK 


F94A 


PRBL2 


?F94C 


PPBL3 


F953 


PCADJ 


7F954 


PCADJ2 


F956 


PCADJ3 


F95C 


PCADJ4 


F961 


RTS2 


F962 


FMTl 


F9A6 


FMT2 


F9B4 


CHARl 


F9BA 


CHAR2 


F9C0 


MNEML 


FAOO 


MNEMR 


FA40 


IRQ 


FA4C 


BREAK 


FA59 


DLDBRK 


FA62 


RESET 


?FA6F 


INITAN 


?FAS1 


NEWMON 


FA9B 


FIXSEV 


FAA3 


NOFIX 


FAA6 


PWRUP 


7FAA9 


SETPG3 


FAAB 


SETPLP 


FABA 


SLOOP 


FAC7 


NXTBYT 


FAD7 


REGDSP 


FADA 


RGDSPI 


FAE4 


RDBPl 


FAFD 


PWRCDN 


FB02 


DISKID 


FB09 


TITLE 


F811 


XLTBL 


FD19 


RTBL 


7FB1E 


PREAD 


FB25 


PREAD2 


FB2E 


RTS2D 


FB2F 


INIT 


7FB39 


SETTXT 


^FB40 


SETGR 


FB4B 


SETWND 


7FB5B 


TABV 


FB60 


APPLEII 


FB65 


STITLE 


7FB6F 


SETPWRC 


FB78 


VIDWAIT 


FBSa 


KBDWAIT 


FB94 


NOWAIT 


FB97 


ESC OLD 


FB9B 


ESCNDW 


FBA5 


ESCNEW 


7FBB3 


VERSION 


FBB4 


GOTOCX 


FBCl 


BASCALC 


FBDO 


BASCLC2 


FBD9 


BELLI 


FBE4 


BELL2 


FDEF 


RT52B 


FBFO 


STORADV 


FBF4 


ADVANCE 


FBFC 


RTS3 


FBFD 


VIDOUT 


FCIO 


BS 


FCIA 


UP 


FC22 


VTAB 


FC24 


VTABZ 


FC2B 


RTS4 


FC2C 


ESCl 


7FC42 


CLREOP 


FC58 


HDME 


FC62 


CR 


FC66 


LP 


7FC70 


SCROLL 


FC72 


XGOTDCX 


FCe4 


RDCX 


FC91 


ISSLOTB 


FC99 


ISPAGEl 


FC9C 


CLREOL 


7FC9E 


CLREDLZ 


FCA8 


WAIT 


FCA9 


WAIT2 


FCAA 


WAIT3 


FCB4 


NXTA4 


FCBA 


NXTAl 


FCCB 


RTS4B 


FCC9 


HEADR 


FCD6 


WRBIT 


FCDB 


ZERDLY 


fce;2 


DNEDLY 


FCE5 


WRTAPE 


FCEC 


RDBYTE 


FCEE 


RDBYT2 


FCFA 


RD2BIT 


FCFD 


RDBIT 


FDOC 


RDKEY 


FD10 


KEYIN 


FD21 


RDESC 


FD2F 


ESC 


FD35 


RDCHAR 


FD3D 


NOTCR 


F05F 


NOTCR 1 


FD62 


CANCEL 


FD67 


GETLNZ 


7FD6A 


GETLN 


FD71 


BCHSPC 


FD7S 


NXTCHAR 


FD7E 


CAPTST 


FDB4 


ADDINP 


FDBE 


GROUT 


FD92 


PRAl 


FD96 


PRYX2 


FDA3 


XAMB 


FDAD 


MODBCHK 


FDB3 


XAH 


FDB6 


DATABUT 


7FDC5 


RTS4C 


FDC6 


XAMPM 


FDDl 


ADD 


FDDA 


PRBYTE 


■^FDE3 


PRHEX 


FDE5 


PRHEXZ 


FDED 


COUT 


FDFO 


COUTl 


FDF6 


COUTZ 


FEOO 


BLl 


7FE04 


BLANK 


?FEOB 


STOR 


FE17 


RTS5 


7FE1B 


SETMODE 


FEID 


SETMDZ 


?FE20 


LT 


FE22 


LT2 


FE2C 


MOVE 


FE36 


VFY 


Fe5B 


VFYBK 


7FE5E 


LIST 


FE63 


LIST2 


FE75 


AlPC 


FE78 


AlPCLP 


FE7F 


AlPCRTS 


?FE80 


SETINV 


FE84 


SETNDRM 


FEB6 


SETIFLG 


FE89 


SETKBD 


7FEBB 


IMPORT 


■'-■FEBD 


INPRT 


FE93 


SETVID 


7FE95 


OUTPQRT 


7FE97 


OUTPRT 


FE9B 


lOPRT 


FEA7 


lOPRTl 


FEA9 


IDPRT2 


7FEAF 


CKSUhFIX 


7FEB0 


XBASIC 


■^FEB3 


BASCONT 


FEB6 


GO 


7FEBF 


REGZ 


?FEC2 


TRACE ' 


7FEC4 


STEPZ 


7FECA 


USR 


7FECD 


WRITE 


FED4 


WRl 


FEED 


WRBYTE 


FEEF 


WRBYT2 


7FEF6 


CRMON 
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?FEFD READ FFOA RD2 FF16 RD3 ?FF2D PRERR 

FF3A BELL FF3F RESTORE ?FF44 RESTRl ?FF4A SAVE 

FF4C SAVi '^FFS? OLDRST FF65 MDN FF69 MONZ 

FF73 NXTITM FF7A CHRSRCH FFSA DIG FF90 NXTBIT 

FF9S NXTBAS FFA2 NXTflS2 FFA7 GETNUM FFAD NXTCHR 

FFBE TOSUB FFC7 2MDDE FFCC CHRTBL FFE3 SUBTBL 

*# SUCCESSFUL ASSEMBLY : = NO ERRORS 

*» ASSEMBLER CREATED ON 05-JAN~82 000004 

*« TOTAL LINES ASSEMBLED 1438 

*» FREE SPACE PAGE COUNT 67 
2 BJS. SRC2 



22 Monitor ROM Listings 



80-Column Firmware 
Listing 



0000 




2 




««-»#«« 


»*#«#■**»««»*» 


f*«»»***«# 


0000 




3 


» 








0000 




4 


-» Apple //e 


VIDEO 


FIRMWARE 




0000 




5 


* 








0000 




6 


« RICK AURIGCHIO 


OS/SI 




0000 




7 


* 








0000 




B 


«■ (C) 1981. 


APPLE 


COMPUTER INC 




0000 




9 


« ALL RIGHTS 


RESERVED 




0000 




10 


« 








0000 




11 




#«»»»* 


**■*«■»##«*»»*»#**#»*»»*«■ 


0000 




12 


* 








0000 


0006 


13 


GOODFB 


EQU 


6 


FB RDM VERSION 


0000 




14 


« 








0000 




15 


# HARDWARE 


EQUATES: 




0000 




16 


# 








0000 


COOO 


17 


KBD 


EQU 


*C000 


KEYBOARD PORT 


0000 


cooo 


IS 


CLR80C0L 


EQU 


SCOOO 


DISABLE 80CDL STORE 


0000 


COOl 


19 


SETBOCDL 


EQU 


*C001 


ENABLE BOCOL STORE 


0000 


C002 


20 


RDMAINRAM 


EQU 


SC002 


READ MAINBOARD RAM 


0000 


C003 


21 


RDCARDRAM 


EQU 


«C003 


READ CARD RAM 


0000 


C004 


22 


WRMAINRAM 


EQU 


iC004 


WRITE MAINBOARD RAM 


0000 


COOS 


23 


WRCARDRAM 


EQU 


*C005 


WRITE CARD RAM 


0000 


C007 


24 


SETINTGXROr- 


EQU 


SC007 


SET INTERNAL CXOO RDM 


0000 


COOS 


25 


SETSTDZP 


EQU 


SCOOS 


SET STD ZP/STK 


0000 


C009 


26 


SETALTZP 


EQU 


5C009 


SET ALT ZP/STK 


0000 


COOB 


27 


SETSL0TC3ROM EQU 


SCOOB 




0000 


COOC 


28 


GLRBOVID 


EQU 


*C0OC 


DISABLE BOCOL VIDEO 


0000 


GOOD 


29 


SETSOVID 


EQU 


SCOOD 


ENABLE 80CDL VIDEO 


0000 


COOE 


30 


GLRALTCHAR 


EQU 


5C00E 


NORM LC, FLASH UC 


0000 


GOOF 


31 


5ETALTCHAR 


EQU 


JCOOF 


NORM/INV LC, NO FLASH 


0000 


COlO 


32 


KBDSTRB 


EQU 


*C010 


CLEAR STROBE 


0000 


GOU 


33 


RDLCBNK2 


EQU 


*COH 


READS UC BANK2 


0000 


C012 


34 


RDLCRAM 


EQU 


*C012 


READS LC RAM ENABLE 


0000 


C0i3 


35 


RDRAMRD 


EQU 


*C013 


READS RAMREAD STATE 


0000 


C014 


36 


RDRAMWRT 


EQU 


*C014 


READS BANKWRT STATE 


0000 


coia 


37 


RD80CDL 


EQU 


»C018 


READS SETBOCDL 


0000 


COl'9 


38 


RDVBLBAR 


EQU 


*C019 


'VBL SIGNAL 


0000 


GOIA 


39 


RDTEXT 


EQU 


»C01A 


READS TXT MODE 


0000 


COIC 


40 


RDPAQE2 


EQU 


*C01C 


PAGEl/2 STATUS 


0000 


COIF 


41 


RD80VID 


EQU 


*C01F 


READS SETSOVID 


0000 


C030 


42 


SPKR 


EQU 


*C030 


TOGGLE SPEAKER 


0000 


G054 


43 


TXTPAGEl 


EQU 


*C054 


PAGEl TEXT 


0000 


C055 


44 


TXTPAGE2 


EQU 


*C055 


PAGE2 TEXT 


0000 




45 


* 








0000 




46 


« MONITOR EQUATES 






0000 




47 


« 








0000 


FBB3 


48 


F8VERSI0N 


EQU 


*FBB3 


FB ROM ID 


0000 


FDOC 


49 


RDKEY 


EQU 


*FDOC 


GET A KEYSTROKE 


0000 


FE89 


50 


SETKBD 


EQU 


*FES9 


INttO 


0000 


FE93 


51 


SETVID 


EQU 


*FE93 


PR«0 


0000 


-FF5B 


52 


lORTS 


EQU 


*FF58 


KNOWN RTS 


0000 




54 


* ZEROPAGE 


EQUATES: 




0000 




55 


« 








0000 




56 




DSECT 






00 IF 


OOIF 


57 




ORG 


»1F 




00 IF 


0001 


58 


YSAVl 


DS 




SAFE PLACE IN ALL ENVIRONS 


0020 


0001 


59 


WNDLFT 


DS 




SCROLLING WINDOW LEFT 


0021 


0001 


60 


WNDWDTH 


DS 




SCROLLING WINDOW WIDTH 


0022 


0001 


61 


WNDTOP 


DS 




SCROLLING WINDOW TOP 


0023 


0001 


62 


WNDBTM 


DS 




SCROLLING WINDOW BOTTOM 


0024 


0001 


63 


CH 


DS 




CURSOR HORIZONTAL 


0025 


0001 


64 


CV 


DS 




CURSOR VERTICAL 


0026 


0003 


65 




DB 


2 


GBASL 


0028 


0002 


66 


BASL 


DS 


2 


BASE ADDRESS 


002A 


0029 


67 


BASH 


EQU 


BASL+1 




002A 


0002 


6B 


BA52L 


DS 


2 


BASE ADDR FOR SCROLL 


002C 


002B 


69 


BAS2H 


EQU 


BAS2L-M 




0032 


0032 


70 




ORG 


*32 




0032 


0001 


71 


INVFLG 


DS 


1 


>127=N0RMAL 


0033 


0003 


72 




DS 


3 


N/A 


0036 


0002 


73 


CSWL 


DS 


2 


COUT HOOK 


0038 


0037 


74 


CSWH 


EQU 


CSWL+1 




003B 


0002 


75 


KSWL 


DS 


2 


; KEY IN HOOK 


003A 


0039 


76 


KSMH 


EQU 


K5UL+1 




003C 


003C 


77 




ORG 


■»3C 




003C 


0002 


78 


AIL 


DS 


2 


i MONITOR TEMPS FOR MOVE 
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O03E: 
003E 
0040 
004O 
0042 
0044 

eo4E: 

004E 
00 50 
0000 
0900 
0000 

Oooo 

0000 
0000 
0000 

oooo 

0000 
00 oo 

oooo 
eeoo 

9000 

oooo 
oooo 
oooo 
oooo 
oooo 
oooo 



oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 

0000 

oooo 

S0OO 

oooo 

OOOO 

oooo 
oooo 
eeoo 
oooo 

oooo 

OO0O 

oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 

ClOO: 

cioo 
cieo 

C160 

CIO© 

eioo 

CIQS 
CIOO 

C190 

CIOO 

CI 00 



CI© 



003D 
0002 
003F 
0002 
0002 
0043 
004E 
0002 
004F 



047B 
047B 
04F8 



AlH 
A2L 
A2H 



RNDL 
RNDH 



EQU 


A4L+1 


ORC 


♦4E 


D5 


2 


EQU 


RNDL+1 


DEND 





iA3 NOT USED 



; RANDOM NUMBER SEED 



90 * PERMANENT DATA IN SCREENHDLES 

91 * 

92 * NOTE: THESE RESIDE IN PAGE 1 OF 

93 • THE BO-COLUMN SCREEN PAIR; ANV 

94 • ROUTINE WHICH SETS PAGES »MUST# 

95 * RESTORE BACK TO PAGEl SO THAT 

96 * WE CAN CORRECTLY ACCESS THESE 

97 * PERMS. UNDER »Na« CIRCUMSTANCES 
9B * IS ANY ROUTINE TO BE CALLED WHILE 
99 * WE HAVE PAGE2 BANKED IN! 



0080 
0040 
0020 
0010 
0008 
0004 

oooa 

0001 
0001 
057B 
05FB 
067B 
OfaFB 
0778 
07FB 



NEXT OBJECT I 
CIOO 
CIOO 
FD29 
FBCl 
FC2? 
FC24 



100 
101 
102 
103 
104 
105 
106 
107 
108 
109 

uo 
111 

U2 



115 
116 

117 

lis 

119 
130 
12i 
122 
123 
124 
125 
126 
127 
125 
129 
130 
131 
132 
133 
134 
135 
136 
137 
13B 
139 
140 
141 



TEnPl 

DUDCH 

MODE 

» MODE BITS 



EQU «47B 
EQU S47B+3 
EQU »4FB+3 



i A TEHP 

> OLD CH SET FOR USER 

; OPERATING MODE 



ESC~R INACTIVE 
ESC-R ACTIVE 
BASIC PRINT 
BASIC INPUT 
LANGUflGE=BASIC 
LANGUAGE=PASCAL 
U/C RESTRICT MODE 
LITERAL UC/LC MODE 
GOTOXY N/A 
GGTOXY IN PROGRESS 
NORMAL VIDEO (PASCAL) 
INVERSE VIDEO (PASCAL) 
PASCAL 1. 1 F/W ACTIVE 
PASCAL 1. INTERFACE 
CALLER SEI'D (BASIC) 
CALLER CLI 'D (BASIC) 
NORMAL MODE IPASCAL) 
TRANSPARENT MODE (PASCAL) 



M. ESCR 
M. BINPUT 

M. PASCAL 



M. I 



IT 



M. GOXY 
M. VMODE 

M. PASl. O 

M. IRQ 

M, TRANS 

DURCH 

aURCV 

CHAR 

XCOORD 

OLDBASL 

OLDBASH 



EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 



$B0 
»40 
»20 

»10 
$08 
»04 
»02 

SOI 

$01 

$578+3 

«5FS+3 

S67B+3 

S6F8+3 

S778+3 

S7FS+3 



» GENERAL SCREEN STUFF: 



CSSLDT 



EQU 
CHR 

INCLUDE BFUNC 
NAME ID VIDEO, OBJO 

ORG SCIOO 

EQU 

EQU 

EQU 

EQU 

EQU 



BFUNCPG 
FUNCEXIT 
F. BASCALC 
F. VTAD 
F. VTABZ 



$7FB 



$FD29 
»FBC1 
SFC22 
*FC24 



i ESC-R ACTIVE 

; BASIC INPUTTING 

, PASCAL RUNNING 

; LITERAL UC/LC INPUT 
i GOTOXY IN PROGRESS 
i PASCAL VIDEO MODE 
, PftSCAL 1. O nODE 

i IRQ ENABLED (BASIC ONLY) 

-. TRANSPARENT MODE IF F/W PROTOCOL 

i SO-CDL CH 

i CURSOR VERTICAL 

i IN/OUT CHAR 

; X-CODRD (GOTOXY) 

i PASCAL SAVED BASL 

, PASCAL SAVED BASH 



: IRQ Ca PROTOCOL 



; RETURN ADDRESS 



BASIC FUNCTION HOOK: 



THIS ROUTINE IS CALLED BY THE 
PATCHED F8 ROM. 

THIS CODE WILL ALWAYS PERFORM THE 
FUNCTION HERE AND RETURN TO THE 
CALLER 



CIOO' 
CIOO, 
CIOO 
CIOO 
CIOO 
CIOO 
ClOQ 
CIOO 
CIOO 
CIO© 
CIOO 



NOTE: F8 ROM DISABLES 1/ 
RUNNING HERE. WE HETUHN 



) TO GET US 
TO F8 SPACE. 



=FUNCTIDN AS FOLLOWS: 
0:^CLREOP 
l^HOME 
2=SCR0LL 
a^CLREDL 
4=CLEDLZ 
5-INlT e RESET 
6=KEYIN 
7=FIX ESCAPE CHAR 
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ClOO: 
ClOO: 
ClOO: 
ClOO: 
ClOO: 
ClOO: 
ClOO: 
ClOO: 
ClOO: 
ClOO: 
ClOO: 
ClOO: 
ClOO: 
ClOO: 
ClOO: 
ClOO; 
ClOO; 
C103; 
C104; 
C107; 
C107: 
CI09; 
ClOB: 
ClOE: 
ClOE; 
ClOF: 
CIIO: 
C113: 
C115: 
CI 15: 
C115: 
C115: 
C115; 
C115: 
C115; 
C115; 
C115: 
C115: 
C118: 
CllA: 
CllC: 
CllF: 
CllF: 
CllF: 
CllF; 
CllF: 
C120: 
C121: 
CI 23: 
CI 24: 
C127: 
CI 28: 
CI 29: 
C129: 
C12B; 
CI 2D: 
C12E; 
C131: 
C134; 
C136: 
C137: 
C139: 
C13B: 
C13D: 
C140: 
C143: 
C143; 
C145: 
C147; 
C149; 
C14B: 
C14D; 
C14D: 
C14F: 
C150; 
Ci53: 
C155; 
C157: 
C159: 
C15D: 
C15D: 
C15E: 
C15F; 
C161: 
C163: 
C165: 
C166: 
0169: 
C16B: 
C16D: 
C16E: 



STK HAS PHP FDR STATUS 
OF BANK & IRQ BIT 
VOLATILE: AC, Y 

NOTE: IF WE HAVE A CARD INSTALLED, 

THEN USE THE VIDEO ROUTINES, SINCE 
WE 'OWN' SLDT3 SCREENHDLES. 
IF NOT, DUPLICATE FBRDM ROUTINES 
AND AVOID SLOTS INTERFERENCE. 

VECTOR TO KEYIN/ESCFIX IMMEDIATELY 
TO AVOID AC DESTRUCTION: 



ClOO 
CO 06 

DO 03 C107 
4C 88 C2 

C107 
CO 07 

DO 03 ClOE 
4C 6E C2 

ClOE 
98 
48 

20 24 CB 
DO OA CllF 



FUNC 


EQU 


■ft 






CPY 


#6 


; IS IT KEYIN? 




BNE 


B. FUNCNK 


iNO 




JMP 


B, KEYIN 




FUNCNK 


EQU 


# 






CPY 


#7 


i IS IT ESCAPE-FIX? 




BNE 


B. FUNCNE 


(NO 




JMP 


B. ESCFIX 


i =>YEB ! 


FUNCNE 


EQU 


-» 






TYA 




i SAVE Y 




PHA 








JSR 


TESTCARD 


i DO WE HAVE A CARD? 




BNE 


B. OLDFUNC 


i=>NO 



AD FB 04 
29 28 

DO 03 CllF 
4C A4 CI 



58 » NOTE: THIS TEST COULD TURN OUT 

59 ff WRONG ON POWER-UP, SINCE THE 

60 « MODEDVTE IS UNDEFINED. HOWEVER,. 

61 » SINCE THE MONITOR IS DOING A 

62 • SIMPLE 'SETWND' CALL, WE WON'T 

63 • GET INTO TROUBLE EVEN IF WE 

64 * MAKE THE WRONG DECISION. . 

65 * 

66 LDA MODE ; IS MODE VALID? 

67 AND «M. PASCAL+M. GOXY i FOR BASIC 

68 BNE B. OLDFUNC ; =>DEFINITELY NOT I 

69 JMP B, FUNCO i =>YEB, GO NEW WAY 

70 * 

71 * NO CARD, DO THINGS THE OLD HAY, 



73 B- OLDFUNC 



EQU 
PLA 
TAY 
LDA 
PHA 
LDA 
PHA 
RTS 



#<BFUNCPG 



F, TABLE, Y 



RESTORE Y 
TRANSFER VIA 

THE RTS-TRICK 
GET LD ADDRESS 

i TRANSFER TO ROUTINE 



A4 


24 




Ml 

82 


F 


CLREOP 


LDY 


CH 


; ESC F IS 


A5 


25 




83 






LDA 


CV 




48 






84 


CLEOPl 


PHA 






20 


24 


FC 


85 






JSR 


F, VTABZ 




30 


F4 


C2 


86 






JSR 


X, CLEOLZ 




AO 


00 




87 






LDY 


#»00 




6B 






88 






PLA 






69 


00 




89 






ADC 


#»00 




C5 


23 




90 






CMP 


WNDBTM 




90 


FO 


CI 2D 


91 






BCC 


CLEOPl 




20 


22 


FC 


92 






JSR 


F, VTAS 




4C 


EB 


C2 


93 
94 






JMP 


F, RETURN 


iDONE 














A5 


22 




95 


F 


HOME 


LDA 


WNDTOP 




B5 


25 




96 






STA 


CV 




AO 


00 




97 






LDY 


*«00 




84 


24 




98 






STY 


CH 




FO 


EG 


CI 2D 


99 






BEQ 


CLEOPl 


i (ALWAYS T 



A5 22 

48 

20 24 FC 

AS 28 

85 2A 

A5 29 

85 2B 

A4 21 

88 

68 

69 01 

C5 23 

BO OD C172 

48 

20 24 FC 

Dl 28 

91 2A 



101 I 

102 

103 

104 1 

105 

106 

107 

108 

109 

110 

111 

112 

113 

114 

115 

116 I 

117 



C169 119 



LDA 
PHA 
JSR 
LDA 
STA 
LDA 
STA 
LDY 
DEY 
PLA 
ADC 
CMP 
BCS 
PHA 
JSR 
LDA 
STA 
DEY 
BPL 



WNDTOP 

F. VTABZ 

BASL 

BAS2L 

BASH 

BAS2H 

UNDWDTH 



#»01 

WNDBTM 
SCRL3 

F, VTABZ 
(BASL), Y 

<BAS2L), 
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C170:30 El C193 120 BUI 8CRL1 

C173:A0 00 121 BCRL3 LDV MOO 

C174:20 F4 C2 122 JSR X CLEOLZ 

C177:20 22 FC 123 JSR F. VTAB 

C17A:4C EB CS 124 JHP F. RETURN i «>DONE 

C17D:A4 24 129 F. CLREOL LDV CH 

C17F:A9 AG 126 LDA ttVAO 

C181:91 28 127 CLE0L2 8TA <BASL).Y 

C183:C8 128 INY 

Cie4;C4 SI 139 CPV UNOMDTH 

C186:90 F"? ClBl 130 BCC CLEDL2 

Ciea:BO 17 ClAl 131 BC8 F, CORET i D(»IE (ALUAYS TAKEN) 

C18A: 132 

C18A: C18A 133 F. SETUND EQU « 

C18A:A9 28 }34 LDA tt40 

C18C:85 21 135 8TA WNDWDTH 

C18E:A9 18 136 LDA #34 

C190:S5 23 137 8TA MNDBTM 

C192:A9 17 138 LDA *23 

C194: 85 2S 139 8TA CV 

C196:20 S2 FC 140 JSR F VTAB 

C199:4C EB C3 141 JMP F, RETURN 

C 19C : 1 42 

C19C: C19C 143 F. CLEOLZ EflU • 

C19C:A4 IF 144 LDY YSAVl i RESTORE HORIZ POSITION 

C19E:20 F4 C2 145 JSR X CLEOLZ J DO IT 

C1A1:4C EB C2 146 F. GORET JMP F. RETURN i OWE 

C1A4: C1A4 148 B. FUNCO EQU « 

C1A4:68 149 PLA i RESTORE Y 

C1A5; A8 150 TAY 

CIA6: ISl « 

C1A6; 152 * SET IRQMDDE: 

CLA6: 153 * 

C1A6:A0 FB 04 154 LDA MODE i ASSUME IRQ 16 DISABLED 

C1A9:29FE 155 AND ttaSS-M. IRQ 

C1AB:8D FB 04 196 STA MODE 

CIAE:6B 157 PLA j PULL CXBANK STATUS 

C1AF:8D 78 04 159 STA TErtf»l j OFF STACK 

C 182:68 159 PLA i GET USER 'S PSTATUS 

C1B3:48 160 PHA ; (LEAVE ALONE ON STACK) 

C1B4:4A 161 LSR A i MOVE 'I' BIT TO 

C1B9:4A 162 LSR A ; THE CARRY 

C1B6: 4A 163 LBR A 

C1B7:AD 78 04 164 LDA TEMPI j PUT CXBANK STATUS 

CIBA:48 165 PHA ; BACK CW STACK 

ClBBrBO OS C1C5 166 BCS NDI i«>HE'S INHIBITED 

CIBD:AD FB 04 167 LDA MODE 

CIC0:09 01 168 DRA #M. IRQ 

C1C2:BD FB 04 169 STA MODE 

C1C5: CICS 170 NDI EQU « 

C1C5;A5 25 171 LDA CV i COPY USER CV 

ClC7:aD FB 05 172 STA DURCV f TO OURS 

CICA: 4C FF CI 173 JMP D. VECTOR i CONTINUE 

CICD: 174 * 

CICD: 175 » NOTE: THIS KEEPS D. XXXX ROUTINES 

CICD: 176 * ALL IN THE ClOO PAGE. . . 

CICD: 177 » 

CICD: 178 » 

CICD: CICD 179 B. SCROLL EQU * 

CICD: 20 A4 CC 180 JSR 5CR0LLUP ; DO IT FOR CALLER 

C1D0:4C EB C2 181 JMP F. RETURN i AND RETURN DIRECTLY 

C1D3: 182 * 

C1D3: C1D3 183 B. CLREOL EQU * 

C1D3:20 48 CD 184 JSR X- QS i CLEAR TO EOL 

C1D6:4C EB 02 185 JMP F. RETURN i RETURN DIRECTLY TO CALLER 

C1D9: 186 

C1D9: C1D9 187 B. CLEOLZ EQU » 

C1D9:A4 IF 18B LDY YSAVl (RESTORE HORIZ POSITION 

C1DB:20 4E CD 189 JSR X. GSEOLZ (DO IT TO EOL 

C1DE:4C EB C2 190 JMP F. RETURN 

C IE! : 191 

ClEl: ClEl 192 B. CLREOP EQU • 

C1E1:20 23 CD 193 JSR X. VT -CLEAR TO EOS 

C1E4:4C EB C2 194 JMP F. RETURN i RETURN DIRECTLY TD CALLER 

C1E7: 175 

C1E7:4C 19 C2 196 B- SETWND JMP B. SETWNDX 

C1EA:4C 34 C2 197 B. RESET JMP B. RESETX ; MUST BE IN BFUNC PAGE 

CIED: 198 

CIED: CIED 199 B. HOME EQU » 

CIED: 20 42 CD 200 JSR X.FF .HOME & CLEAR 

C1F0:AD 7B 05 201 LDA OURCH 

C1F3:85 24 203 STA CH ; COPY CH/CV FDR CALLER 

C1F5:8D 7B 04 203 STA OLDCH * REMEMBER WHAT WE SET 

C1F8:AD FB 05 204 LDA OURCV 

C1FB:S5 25 205 STA CV 

CIFD: 10 2F C22E 206 BPL GOBACK ; (ALWAYS TAKEN) 

CIFF: 207 • 

CIFF: 208 • COPY USER'S CURSOR IF IT DIFFERS 

Cin^: 209 » FROM OURS (AND WE'RE RUNNING 

CIFF: 210 * IN BO-CDLUMN MODE). IF WE ARE 

CIFF: 211 * NOT IN 80-MODE. THEN ALWAYS USE 
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CIFF: 
CIFF: 
CIFF: 
CIFF: 
CIFF: 
C202: 
C204: 
C307: 
C209: 
C20C: 
C20E: 
C20E: 
C211: 
C2H: 
C2I3: 
C214: 
C217; 
C21B: 
C219: 
C2L9: 
C219: 
C21E: 
C21E: 
C220: 
C221: 
C221: 
0223: 
C225: 
C227: 
C229: 
C22C: 
C22E: 
C231; 
C234: 
C234. 
C234: 
C234: 
C234: 
C236: 
C239: 
C23C: 
C23F: 
C23F: 
C23F: 
C23F: 
C23F; 
C33F: 
C33F: 
C242: 
C244: 
0247; 
C249; 
C249: 
C249: 
C249: 
0349; 
C24D: 
C24D: 
C24F: 
0251 ■■ 
C292: 
0252; 
0354: 
0356: 
C2S7; 
0259: 
C258; 
025D: 
C25F: 
0261: 
0261; 
0261; 
C264: 
0364: 
C264: 
0367: 
C269: 
C36C: 
C26E; 
C36E; 
C2&E: 
C270; 
C372: 
C272: 
C275: 
C377: 
C27A: 
C37A; 
C27B: 
C37D: 
0280: 



THE USER'S OH VALUE SINCE OURS 
IS PROBABLY INVALID, 



CIFF 
20 51 CB 
A5 24 
20 IF CO 
10 05 C20E 
CD 7B 04 
FO 03 C2n 

C20E 
SD 7B 05 

CSll 
A9 CI 
4B 

B9 F3 OF 
4S 
60 

C219 
A9 50 
20 IF CO 
30 01 C221 

4A 

85 21 

A9 18 

85 23 

A*? 17 

8D FB 03 

85 25 

20 51 CD 

4C EB 02 



212 - 
213 

214 * 

215 B. VECTOR 
216 

217 

218 

219 

220 

221 

222 B. GETCH 

323 

224 B- FUNCl 

325 

226 

227 

228 

229 

230 

231 B. SETWNDX 

232 

233 

234 



C221 



A9 FF 

BD FB 04 

AD 5D CO 

AD 5F CO 



AD 63 CO 

30 ID C261 

AD 61 CO 

10 IB C264 



AO BO 
A9 GO 
85 30 
A9 BF 
38 

S5 3D 
91 30 
68 

91 30 
E9 01 
C9 01 
DO F3 
FO 03 



20 24 

FO 14 
aD OB 
DO OF 



29 DF 
AO 03 

D9 80 
DO 03 
B9 84 



B SETMND2 



236 

237 

238 

339 

240 

341 

242 

343 

244 

245 

246 

247 

248 

249 

250 

251 

252 

353 

254 

255 

256 

357 

258 

259 

260 

261 

263 

263 ■ 

264 

265 

266 

267 

26S 

269 

370 

371 
C252 272 BLAST 

373 

274 

275 

276 

277 

278 
0252 279 
0264 280 

381 • 

383 DIAOS 

283 

284 w 

285 RESETRi 
266 
287 
288 
289 

290 

391 B, ESCF 

292 

293 

294 B. ESCF 

295 

296 

297 

298 B. ESCF 

299 

300 

301 OORETN 

302 



EQU 
JSR 
LDA 
BIT 
BPL 

CUP 

BEQ 
EQU 
STA 
EtiU 
LOA 
PHA 
LDA 
PHA 
RTS 

ESU 
LDA 
BIT 
BMI 
LSR 
EdU 
STA 
LDA 
STA 
LDA 
STA 
STA 
JSR 
JMP 



BASOALC 
CH 

RDSOVID 
B. GETCH 
OLDCH 
B, FUNCl 



OURCH 



tt<:BFUNCPG 



D TABLE. Y 



ttSD 

RDBOVID 
B. SETWND3 



UNDMDTH 
#34 

WNDBTM 
M23 

OUHCV 
CV 

DASCALC 
F, RETURN 



* HANDLE RESET FOR MONITOR: 

B, RE3ETX ESU » 

LDA #»FF 

STA MODE 

LDA »005D 

LDA *C03F 



» IF THE OPEN APPLE S^EY 

* (ALIAS PADDLE BUTTONS 0) IS 

* DEPRESSED, COLDSTART THE SYSTEM 

* AFTER DESTROY I NO MEMORY: 



; GET USER CH VALUE 
i DISPLAYING 80-COLS? 
i=>ND, USER OH IS IT 
i IS IT DIFFERENT? 
i =;'ND, USE OURS 

i USE HIS CH 

; TRANSFER TO ROUTINE 
; VIA RTS-TRIOK 
i GET LO ADDRESS 



; ASSUME SO-CQLS 
> WHICH MODE? 
i =>IT'S SO 
i MAKE I T 40 



. SET BOTTOM 

i VTAB TO BOTTOM 



; DESTROY MODE BYTE 



LDA «0063 

BMI DIAGS 

LDA *C061 

BPL RESETRET 

BLAST 2 BYTES OF EACH PAGE. 
INCLUDING THE RESET VECTOR: 



; GET BUTTON I (SOLID) 
> =>DOMN. DO DIAGS 
.GET BUTTON O (OPEN) 
i =>NOT JIVE OR DIAGS 



036 1 

4 

0264 
B 

C27D 
O 

C27D 

C26E 

0272 
2 
C27A 

2 
C27A 

C272 



LDY 
LDA 
STA 
LDA 
SEC 
EQU 
STA 
STA 
DEY 
STA 
SBO 
CMP 
BNE 
BEQ 

EQU 
JMP 

EQU 
JSR 
BEQ 

STA 
BNE 

EQU 
AND 
LDY 
EQU 
CMP 
BNE 
LDA 
EQU 
DEV 
BPL 
JMP 



AIL 

««BF 



AlH 
(AIL). 



BLAST 
RESETRET 



;LET IT PREOESS DOWN 



i START FROM BFXX DOWN 
i FOR SUBTRACT 



i BACK DOWN TO NEXT PAGE 
i STAY AWAY FROM STACK ! 



1 RUN DIAGS 



TESTCARD i CARD PLUGGED IN"? 
CORETN ; =>VES 
SETSLOTCSROM ; NO. DISABLE ROM 
CORETN i (ALWAYS TAKEN) 



tt«DF 

#4-1 

» 

ESC IN, Y 

B. ESCFIX3 

ESCOUT, Y 



B. ESCF 1X2 
F. RETURN 



I FORCE TO UPPERCASE 

i SCAN FOR A MATCH 

i IS IT? 

; ->NAW 

(YES, TRANSLATE IT 



i RETURN: CHAR IN AC 



80-Column Firmware Listing 



C2e0: 88 <?3 
C2e4: CA CB 
C28a: 
C288: 

C2B8: 8D 78 
C28B: 68 
C28C : AB 
C28D: 68 
C28E: 48 
C28F1 6A 
C2?0: 6A 
C291-. 6A 
C292: 98 
C293: 4B 
C294: 8A 
C295: 48 
C296: 
C296: 88 
C297: BO 03 
C299: 2C 00 
C29C: 

Ca9C: A9 FF 
C29e: A4 24 
C2A0: 91 28 
C2A2: 20 C6 
C2A5: BO OE 
C2A7: AD 78 
C2AA: A4 24 
C2AC:91 28 
C2AE: 20 Ch 
C2B1:B0 02 
C2B3: 90 E7 
C2B5: 
C2B3: 

C2B5: AD 78 
C2B8; A4 24 
C2BA: 91 28 
C2BC: 68 
C2BD: AA 
C2BE: AD 00 
C2Cl;aD 10 
C2C4: 30 25 
C2C6: 
C2C&: 
C2C6: 

C2C6: A2 OC 
C2Ca: 70 02 
C2CA: A2 31 
C2CC: 

C2CC: AO 00 
C2CE: 

C2CE: 50 05 
C2D0: OB 
C2D1:20 75 
C2D4: 28 
C2D5; 

C2D5: E6 4E 
C2D7: DO 02 
C2D9: E6 4F 
C2DB: 

C2DB: AD 00 
C2DE: 30 09 
C2E0: 88 
CSE1:D0 EB 
C2E3: CA 
C2E4: DO E6 
C2E6: 
C3E6: 18 
C2E7: 90 01 
C2E9-. 
C2E9: 38 
C2EA: 
C2EA: 60 
C2EB: 
C2EB: 
C2EB: 
C2EB: 
C2EB: 
C2EB:28 
C2EC: 30 03 
C2EE: 4C 29 
C2F1: 4C 2C 
C2F4; 
C2F4: 

C2F4: A9 AO 
C2F6: 

C2F6:91 28 
C2F8: C8 
C2F9: C4 21 
C2FB : 90 F9 
C2FD: 60 
C2FE: 



8A 8B 
CD C9 



•88. «95> S8A. tSB 

'JKMI ' i THE ARROWS 



TEHPI 



C29C 

F 
C29C 



C2&5 

C29C 



C2EB 

C2C6 

C2CC 

C2CC 

C2CE 
C2D9 

C 

C2D9 

C2DB 

C2DB 


C2E9 

C2CE 

C2CC 
C2E6 

C2EA 
C2E9 



C2EB 
C2F1 



C2F4 
C2F6 



C2F6 
0002 



B. KEYIN2 

SEV 

* 

#*FF 

CH 

(BASL), Y 

KEYDLY 

COTKEY 

TEMPI 

CH 

(BASL). Y 

KEYDLY 

GDTKEY 

B.KEYIN2 



TEMPI 



(BASL>, 



KBD 
KBDSTRB 

F. RETURN 



303 ESCIN DFB 

304 ESCOUT ASC 
303 

306 B. KEY IN EQU 

307 STA 

308 PLA 

309 TAY 

310 PLA 

31 1 PHA 
512 ROR 

313 ROR 

314 ROR 

315 TYA 

316 PHA 

317 TXA 

318 PHA 

319 » 

320 CLV 

321 BCS 

322 BIT 

323 B. KEYIM2 EQU 

324 LDA 

325 LDY 

326 STA 

327 JSR 

328 BCS 

329 LDA 

330 LDV 

331 STA 

332 JSR 

333 BC8 

334 0CC 

335 * 

336 COTKEY EQU 

337 LDA 

338 LDY 

339 STA 

340 PLA 

341 TAX 

342 LDA 

343 STA 

344 BMI 

345 »»* 

346 »•» INPUT 

347 KEYDLY 
348 
349 
350 

351 IKl 
352 

353 IK2 
354 
355 
356 
357 

358 IK2A 
359 
360 
361 

362 IK3 
363 
364 
365 
366 
367 
368 

369 KDRETN 
370 
371 

372 KDRETY 
373 

374 KDRET 
375 

376 * 

377 » EXIT. EITHER EXIT WITH OR WITHOUT 

378 » ENABLING I/O SPACE. 

379 » 

380 F. RETURN EQU * 

381 PLP 

382 BHI 

383 JMP 

384 F. RET! JMP 
335 , 

386 X. CLEOLZ EQU 

387 LDA 

388 X. CLE0L2 EQU 

389 STA 

390 I NY 

391 CRY 

392 BCC 

393 RTS 

394 ZSPAREC2 EQU 



SAVE ORIGINAL CHAR 
HOLD ONTO 

CXBANK STATUS 
GET USER'S 

IRQ STATE 
MOVE IRQ BIT TO 

THE 
CARRY 
PUT CXSANK STATUS 

BACK ON STACK 
SAVE 

XREO 

ASSUME NOT INTERRUPTIBLE 
»>UE MERE RIGHT 
SAY "INTERRUPTIBLE" 

CURSaR=NORMAL DELETE 



WAIT FOR A KEY 
»>COT ONE 
REPLACE OR 10 CHAR 



WAIT FOR A KEY 
->GOT ONE 
(ALWAYS TAKEN) 



RESTORE ORIGINAL 

CHARACTER 
RESTORE 

XREG 
GET THE NEW KEYSTROKE 
CANCEL THE STROBE 
< ALWAYS TAKEN) 



VFLAG SET IF INTERRUPTIBLE 
EQU « 
LDX #«0C 
BVS IKl 
LDX tt«31 
EQU » 
LDY #0 
EQU » 
BVC IK2A 
PHP 

JBR, SNIFFIRQ 
PLP 

EQU » 
INC RNDL 
BNE IK3 
INC RNDH 
EQU * 

LDA KBD i KEYPRESS? 

BMI KDRETY j »>YES 
DEY 
BNE 
DEX 
BNE 
EQU 
CLC 
BCC 

EQU * 
SEC 

EQU * 

RTS 



SHORT DELAY FOR IRQ 

-> INTERRUPTIBLE 

LONG DELAY FOR NO IRQ 



->NOT INTERRUPTIBLE 
SAVE OFLDW 
ALLOW IRQ 
RESTORE OFLOW 



IK2 



IKl 



KDRET 



F. RETl 

FUNCEXIT 

FUNCEXIT+3 



WNDWDTH 
X- CLE0L2 



iGET PRIOR I/O DISABLE 
i=>LEAVE IT DISABLED 
i=>EXIT it ENABLE I/O 

iEXIT DISABLED 



.-ALWAYS RETURN DIRECTLY 
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C2FE 






0002 


C300 








C300 








C300 








C300 








C300 








C300 








C300 






C3O0 


C300 






C300 


C300 


2C 


58 


FF 


C303 


70 


12 


C317 


C305 






C30iS 


C305 


3S 






C306 


90 






C307 






C307 


C307 


IB 






C30B 


08 






C309 


50 


OC 


C317 


C30B 








C30B 








C30D 








C30B 


01 






C30C 


88 






C30D 








C30D 


4B 






C30E 


51 






C30F 


57 






C310 


5D 






C3n 








can 








C3n 








C311 








C3]l 


4C 


63 


C3 


C314 


4C 


BO 


C3 


C317 








C317 








C317 








C317 






C317 


C317 


SD 


7B 


06 


C31A 


43 






C31B 


98 






C31C 


48 






C31D 


8A 






C31E 


48 






C31F 


08 






C330 








C320 








C320 








C320 


AD 


FD 


04 


C323 


29 


FE 




C325 


8D 


FB 


04 


C328 


68 






C329 


48 






C32A 


29 


04 




C32C 


DO 


OB 


C336 


C32E 


AD 


FB 


04 


C331 


09 


01 




C333 


8D 


FB 


04 


C336 






C336 


C336 


AD 


FF 


CF 


C339 


AS 


25 




C33B 


SD 


FB 


05 


C33E 


20 


Efi 


C3 


C341 


28 






C342 


08 






C343 


70 


03 


C348 


C345 


4C 


66 


C8 


C34S 


4C 


03 


cs 


C34B 








C34D 






C34B 


C34B 


20 


EB 


C3 


C34E 


4C 


4F 


CA 


C351 






C351 


C35I 


20 


EB 


C3 


C354 


4C 


74 


CA 


C357 






C357 


C357 


20 


EB 


C3 


C35A 


4C 


8E 


CA 


C35D 






C35D 


C35D 


ao 


EB 


C3 


C360 


4C 


94 


C9 


C363 








C363 








C363 








C363 








C363 








C363 








C363 








C363 








C363 








C363 









D8 »C300-*. 
INCLUDE C3SPACE 



4 » THIS IS THE CCSXX ROM SPACE: 



CNOO 


EOU 


* 


3ASICINT 


EQU 


* 




BIT 


lORTS 




BUS 


BASICENT 


BASICIN 


EQU 
SEC 


• 




DFB 


•90 


BA5IC0UT 


EQU 

cue 

CLV 


* 


» PASCAL 1 


BVC 


BASICENT 


. I FIRMWARE PROT 




DFB 


SOI 




DFB 


»B8 



DFB >JPINIT 

DFB >JPREAD 

DFB >JPWRITE 

DFB >JPSTAT 



iSET VFLAG (INIT) 
i (ALMAYS TAKEN) 



jBCC opcode (NEVER TAKEN) 



i CLEAR VFLAO (NOT INIT) 
i <ALUAYS TAKEN) 



i GENERIC SIGNATURE BYTE 
i DEVICE SIGNATURE BYTE 

i PASCAL INIT 
i PASCAL READ 
i PASCAL MRITE 
i PASCAL STATUS 



12BK SUPPORT ROUTINE ENTRIES: 



JMP 
JMP 



MOVE 
XFER 



i MEMORY MOVE ACROSS BANKS 
: TRANSFER ACROSS BANKS 



35 » BASIC I/O ENTRY POINT: 



37 BASICENT 



EQU 
STA 

PHA 
TVA 
PHA 
TXA 
PHA 
PHP 

* SET IRQMODEi 

» 

LDA 
AND 
BTA 
PLA 
PHA 
AND 
BNE 
LDA 
OR A 
STA 

BASICENT2 EQU 
LDA 
LDA 
STA 
JSR 
PLP 
PHP 
BUS 
JMP 

JBASINIT JMP 



MODE 

»a55-M. IRQ 
MODE 



tt«04 

BASICENT2 

MODE 

#M. IRQ 

MODE 



69 JPINIT 



72 JPREAD 



75 JPWRITE 



78 JPSTAl 



EQU 
JSR 
JMP 
EQU 
JSR 
JMP 
EQU 
JSR 
JMP 
EQU 
JSR 
JMP 



*CFFF 



OURCV 
SETC8 



JBASINIT 

CBBASIC 

BASICINIT 



SETCa 
PINIT 



SETCB 
PREAD 



SETCS 
PWRITE 



i SAVE CHARACTER 
i SAVE AC 

; AND Y 

; AND X 

i SAVE CARRY & VFLAG 



.ASSUME IRQ IS DISABLED 



; GET PSTATUS 
i AND LEAVE ON STACK 
: IS 'I ' BIT SET? 
;=>YES. DISABLED 



i SET IT ENABLED 

;KICK OUT ALL CS ROMS 
J GET USER CV AND 
i STUFF IT FOR US 
i SETUP C8 INDICATOR 
iCET VFLAG (INIT) 

, =>DD THE INIT 

i GET OUT OF CN SPACE 

i =>GOTO CS SPACE 



i SETUP CS INDICATOR 
i XFER TO PASCAL INIT 



i SETUP CB INDICATOR 
; XFER TO PASCAL READ 



i SETUP CB INDICATOR 
i XFER TO PASCAL WRITE 



NAME 

FUNCTION: 

INPUT 



OUTPUT 
VOLATILE: 



MUVE 

PERFORM CROSSBANK MEMORY MOVE 
A1='S0URCE ADDRESS 
A2=?S0URCE END 
A4^DESTINATI0N START 
CARRY SET=MAIN— >CARD 
CLR=CARD — >MAIN 
NONE 
NOTHING 
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C363; 

C363: 

C363: 

C363: 

C363: 48 

C364: 9Q 

C3&3: 48 

C366: AD 

C369: 48 

C36A: AD 

C36D; 48 

C36E; 

C36E: 

C36e: 

C36E: 90 

C370: 8D 

C373: 8D 

C376: BO 

C378: 

C378: 

C37S; 8D 

C37D: BD 

C37e: 

C37E: 

C37E: AO 

C3e0: 

C380: 

C380:B1 

0382; 91 

C364: £6 

0386; DO 

C388;E6 

C38A: AS 

C3aC: CS 

C38E: A5 

C390: ES 

C393: E6 

C394: DO 

C396: E6 

0398: 90 

C39A; 

C39A: 

C39A: 

C39A: 80 

C39D. 6B 

C39E1 lO 

C3A0: BD 

C3A3: 

C3A3: 8D 

C3A6: 6B 

C3A7: 10 

C3A91 80 

C3AC: 

C3AC : 6S 

C3AD: A8 

C3AE: 68 

C3AF:60 

C3B0: 

C3B0: 

C3B0: 

C3B0: 

C3D0: 

C3B0: 

C3B0: 

C3B0: 

C3BO: 

C3B0: 

C3B0: 

C3B0: 

C3BO: 

C3B0: 

C3B0: 

C3&0: 48 

C3B1: 

C3B1: 

C3B1: 

C3B1: 

C3B1: 

C3B1: AD 

C3B4: 48 

C3BS: AD 

C3D8: 4S 

C3B9: 

C3B9: 

C3B9: 

C3B9: 90 

C3BB:8D 

C3BE: BD 

C3C1:90 

C3C3: 70 

C3C9: 



92 * CALLS 







94 


* 












C363 


93 


MOVE 


EQU 


tt 








96 






PHA 




; SAVE AC 






97 






TYA 




i AND Y 






98 






PHA 






13 


CO 


99 
100 






LOA 
PHA 


RDRAMRD 


i SAVE STATE OF 
i MEMORY FLAGS 


14 


CO 


101 
102 
103 


« 




LUA 
PHA 


RDRAMWRT 








104 


-tt 


SET FLAGS FOR CROSSBANK MOVE; 






103 


* 










08 


C378 


106 






BCC 


MaVEC2M 


; ">CARD — >riAIN 


02 


CO 


107 






STA 


RDMAINRAM 


; SET FOR MAIN 


05 


CO 


108 






STA 


MRCARDRAM 


i TO CARD 


06 


C37E 


109 
110 


^ 




BC5 


MOVESTRT 


; ->C ALWAYS TAKEN) 




C378 


111 


M0VEC2M 


EQU 


» 




04 


CO 


112 






STA 


WRMAINRAM 


I SET FDR CARD 


03 


CO 


113 
114 


^ 




STA 


RDCARDRAM 


j TO MAIN 




C37E 


115 


MOVESTRT 


EQU 


* 




00 




116 
117 


^ 




LDY 


#0 


i DUMMY INDEX 




C380 


118 


MOyELOQP 


EQU 


« 




3C 




119 






LDA 


<A1L), Y 


;GET A BYTE 


42 




120 






STA 


< A4L ) , Y 


; MOVE IT 


42 




121 






INC 


A4L 




02 


C38A 


122 






ONE 


NXTAl 




43 




123 






INC 


A4H 




3C 




124 


NXTAl 


LDA 


AIL 




3E 




125 






CMP 


A2L 




3D 




126 






LDA 


AlH 




3F 




127 






SBC 


A2H 




3C 




128 






INC 


AIL 




02 


C39B 


129 






ONE 


COl 




3D 




130 






INC 


AlH 




E6 


C380 


131 


COl 


BCC 


MOVELOOP 


i =>MORE TO MOVE 






132 


* 














133 


* 


RESTORE ORIGINAL FLAGS: 








134 


* 










04 


CO 


135 
136 






STA 
PLA 


URMAINRAM 


i CLEAR FLASa 

iOET ORIGINAL STATE 


03 


C3A3 


137 






BPL 


C03 


i ->1T WAS OFF 


05 


CO 


138 






STA 


WRCARDRAM 






C3A3 


139 


C03 


EQU 


« 




02 


CO 


140 
141 






STA 
PLA 


RDMAINRAM 


i CLEAR FLAG! 

(GET ORIGINAL STATE 


03 


C3AC 


142 






BPL 


MOVERET 


i =>IT WAS OFF 


03 


CO 


143 






STA 


RDCARDRAM 






C3AC 


144 


MQVERET 


EQU 


« 








145 






PLA 




i RESTORE Y 






146 






TAY 










147 






PLA 




* AND AC 






14B 
149 






HTS 
























150 


« 


NAME 


XFER 










151 


« 


FUNCTION 


TRANSFER CONTROL CROSSBANK 






192 


« 


INPUT 


»03ED 


=TPANSFER A DOR 






153 


« 




CARRY 


SET-XFER TO 


CARD 






154 


» 






CLR=XFER TO 


MAIN 






155 


« 




VFLAG 


CLR-USE STD 


ZP/STK 






136 


« 






SET=USE ALT 


ZP/STK 






157 


» 


OUTPUT 


NONE 










158 


* 


VOLATILE 


•03ED/03EE IN DEST BANK 






159 


* 


CALLS 


NOTHING 








160 


» 


NOTE 


ENTERED VIA JMP- NOT JSR 



162 * 

C3B0 163 XFER EQU * 

164 PHA 

165 » 

166 * COPY DESTINATION ADDRESS TO THE 

167 * OTHER BANK SO THAT WE HAVE IT 

168 * IN CASE ME DO A SWAP: 

169 « 

ED 03 170 LDA *03e0 

171 PHA 

EE 03 172 LDA tOSFE 

173 PHA 

174 * 

179 ♦ SWITCH TO APPROPRIATE BANK: 
176 » 

OA C3C5 177 BCC XFERC3n 

03 CO 178 STA RDCARDRAH 

09 CO 179 STA WRCARDRAM 

19 C3DC 180 BVC XFERSZP 

08 C3CD 181 BUS XFERAZP 

C3C9 182 XFERC2M EQU * 



SAVE AC ON CURRENT STACK 



GET XFERADDR LO 

SAVE ON CURRENT STACK 

GET XFERADDR HI 

SAVE IT TOD 



i >>CARD — >MAIN 
iSET FOR RUNNING 
) IN CARD RAM 
i->USE STD ZP/STK 
i»USC ALT ZP/STK 



3« 



Monitor ROM Listings 



C3C5 


BD 


02 


CO 


183 






STA 


RDMAINRAM 


SET FDR RUNNING 


C3C8 


SO 


04 


CO 


184 






STA 


WRMAINRAM 


IN MAIN RAM 


C3CB 


50 


OF 


C3DC 


185 






BVC 


yPERSZP 


=>USE STD ZP/STK 


C3CD 








186 


« 










C3CD 






C3CD 


187 


XFERAZP 


EQU 


« 


SWITCH TO ALT ZP/STK 


C3CD 


68 






188 






PLA 




STUFF XFERADDR 


C3CE 


8D 


EE 


03 


189 






STA 


*03EE 


HI AND 


C3D1 


6B 






190 






PLA 






C3D2 


SD 


ED 


03 


191 






STA 


*03ED 


LO 


C3D5 


68 






192 






PLA 




RESTORE AC 


C3D6 


SD 


09 


CO 


193 






STA 


SETALTZP 


SWITCH TO ALT ZP/STK 


C3D? 


6C 


ED 


03 


194 






JMP 


(«03ED) 


=>OFF WE GO! 


C3DC 








195 


* 










C3DC 






C3DC 


196 


XFERSZP 


EQU 


» 




C3DC 


68 






197 






PLA 




STUFF XFERADDR 


C3DD 


8D 


EE 


03 


198 






STA 


»03EE 


HI AND 


C3E0 


68 






199 






PLA 






C3E1 


8D 


ED 


03 


200 






STA 


*03ED 


LO 


C3E4 


68 






201 






PLA 




RESTORE AC 


C3E5 


8D 


08 


CO 


202 






STA 


SETSTDZP 


=>SWITCH TO STD ZP/STK 


C3E8 
C3EB 
C3EB 


6C 


ED 


03 


203 
204 
205 






JMP 


(*03ED) 


OFF WE GO' 








■i* 


NAME 


SETC8 






C3EB 








ao6 


« 


PUNCTIQN 


SETUP 


IRQ »CBOO PRDTOCQL 


C3EB 








207 


« 


INPUT 


NONE 






C3EB 








208 


4 


OUTPUT 


NONE 






C3EB 








209 


« 


VOLATILE 


NOTHING 




C3EB 








210 
211 


» 


CALLS 


NOTHING 




C3EB 


















C3EB 








212 


* 










C3EB 






C3EB 


213 


SETC8 


EQU 


* 




C3EB 


48 






214 






PHA 




SAVE AC 


C3EC 


A9 


C3 




215 






LDA 


#<:cNoo 


SLOT NUMBER 


C3EE 


BD 


F8 


07 


216 






STA 


C8SLDT 


STUFF IT 


C3F1 


68 






217 






PLA 




RESTORE AC 


C3F2 


60 






218 






RTS 






C3F3 
C3F3 
C3F3 
C3F3 
C3F3 








6 

2 
3 
4 
3 






INCLUDE C8SPACE 










« 


THIS IS 


THE CBXX SPACE: 








OOOQ 






DO 


TEST 




S 






6 






ORG 


$D800 




C3F3: 




OBJECT 
CSOO 


7 
FILE 

a 






ELSE 






CSOO: 


ORG »CB00 




C800: 






9 






FIN 






CBOO: 4C 


4A 


CA 


10 






JMP 


PINITl. 


PASCAL 1. INIT 


C803: 
C803: 
C803: 






11 


* 


BASIC INITIALIZATION: 






CB03 


13 


BASICINIT 


EQU 


* 




C803: A9 


06 




14 






LDA 


#GDaDFS 


CHECK F8 ROM 


C805: CD 


S3 


FB 


15 






CMP 


F8VERSI0N 


IS IT OK? 


C80S: FO 


DC 


CB16 


16 






BEQ 


BINITl 


=>VES 


CBOA: 20 


7B 


CF 


17 






JSR 


COPYROM 


TRY COPYING TO RAMCARD 


C80D: CD 


B3 


FB 


18 






CMP 


F8VERSI0N 




CB10:F0 


04 


C816 


19 






BEG 


BINITl 


=:>N0W IT'S GOOD 


C812:78 






20 






SEI 




CRASH THE SYSTEM! 


CB13: 




CB13 


21 


HANG 


EQU 


« 




C813: 4C 


13 


C8 


22 






JMP 


HANG 


HANG FOREVER 


C816: 






23 


■» 










C816: 




CS16 


24 


BINITl 


EQU 


* 




CS16: A9 


C3 




25 






LDA 


#'CCN0O 


SET HOOKS FOR 


C818: 83 


37 




26 






STA 


CSWH 




CS1A:85 


39 




27 






STA 


KSMH 


IN & OUT 


C81C:A9 


05 




28 






LDA 


*>SASICIN 




C81E:85 


38 




29 






STA 


KSWL 




C820: A9 


07 




30 






LDA 


«>BASICOUT 




C822: 85 


36 




31 






STA 


CSWL 




C824: A9 


00 




32 






LDA 


«0 


SET FULL 40~CQL WINDOW 


C826: 85 


20 




33 






STA 


WNDLFT 




C82B: A9 


00 




34 






LDA 


#0 


ASSUME TEXT MODE 


Ce2A: 2C 


lA 


CO 


35 






BIT 


RDTEXT 


IN TEXT MODE? 


C82D: 30 


02 


CS31 


36 






BMI 


BINITIA 


=>YES 


C82F; A9 


14 




37 






LDA 


#20 


IF CR, SET 4 LINES 


C831: 




ca3i 


38 


B 


NITIA 


EQU 


♦ 




C831:a5 


22 




39 






STA 


UNDTDP 




C833: A9 


18 




40 






LDA 


«24 




C835: 85 


23 




41 






STA 


WNDBTM 




C837: A9 


28 




42 






LDA 


#40 




C839: 85 


21 




43 






STA 


WNDWDTH 




CB3B: A5 


24 




44 






LDA 


CH 


COPY USER CH 


C83D:8D 


7B 


04 


45 






STA 


DLDCH 


AS 'OLD' SETTING 


C840: A9 


01 




46 






LDA 


#M. IRQ 


GET READY TO CLEAR 


C842: 2D 


FB 


04 


47 






AND 


nooE 


PRESERVE IRQ STATUS 


0849: 8D 


FB 


04 


48 






STA 


MODE 


CLEAR MODES 


Ca4S: 4C 


50 


C8 


49 






JMP 


BINIT2 


->CONTINUE AFTER PASCA 


C84B: 






50 






















CS4B: 






51 


* 










C84B: 






52 


* 


PASCAL 1 


INPUT HOOK: 




CS4B; 






53 


» 










C84B 


00 






54 






BRK 







80-Column Firmware Listing 



31 



C84C:00 






S9 






BRK 






CS4D: 




0000 


96 






IFNE 


•-•C84D 


ERR IF WRONG ADDR 


S 






57 






FAIL 


S, 'C84D HDQK ALIGNMENT' 


CB4D' 






58 






FIN 






C84D; 4C 


51 


C3 


59 






JnP 


JPREAD 


->00 TO STANDARD READ 


C850: 






60 






















CB90: 






61 


» 










CB90: 






62 


« 


IS THERE 


A CARD? 




CB90: 






63 


w 










CB50: 




CB50 


64 


BINIT2 


EQU 


* 




C8S0:20 


24 


OB 


69 






JSR 


TESTCARD 


SEE IF CARD PLUGGED IN 


C593:D0 


08 


CB5D 


66 






BNE 


CLEAR IT 


->IT'S 40 


CB55:06 


21 




67 






ASL 


MNDUDTH 


SET 80-COL WINDOW 


Ce57:aD 


01 


CO 


66 






STA 


SET80C0L 


ENABLE 80 STORE 


C89A:8D 


OD 


CO 


69 






STA 


SET80VID 


AND 80 VIDEO 


C89D: 






70 


» 










C89D: 






71 


• 


HOME St CLEAR: 






C85D: 






72 


« 










CB5D: 




casD 


73 


CLEAR IT 


EQU 


« 




Ca9D:8D 


OF 


CO 


74 






STA 


SETALTCHAR 


SET NORM/INV LCA8E 


CB60:20 


42 


CD 


75 






JSR 


X. FF 


CLEAR IT 


CB63: 28 






76 






PLP 




CLC ASSURES THAT 


C864: IB 






77 






CLC 




UE PRINT THIS 


C869:0B 






78 






PHP 




INITIAL CHARACTER 


CS66: 






eo 


« 










C866: 






81 


» 


CDMPENSATE FOR 


INTEGER BASIC 


'S 


C866; 






82 


* 


HITTING 


OF SCOOO ON INITIAL 


ENTRY: 


C86&: 






83 


* 










CB66: 




Ca66 


84 


C8BASIC 


EQU 


« 


BASIC IN/OUT 


0866: 2C 


IF 


CO 


85 






BIT 


RDBOVID 


WHICH MODE? 


C869: 10 


09 


C874 


86 






BPL 


C8B2 


=>40. LEAVE ALONE 


C86B:eD 


01 


CO 


87 






STA 


BET80C0L 


BO. ENABLE STORE, 


CS6E: 






88 


« 










C86E: 






89 


« 


MAKE SURE SCROLLING WINDOW IS 


CB6E: 






90 


« 


AN EVEN 


NUMBEP 


FOR aO-COLS; 




C86E: 






91 


» 










C86E!A5 


21 




92 






LDA 


NNDMDTH 




C870:29 


FE 




93 






AND 


#*FE 




CB72:85 


21 




94 






STA 


WNDWDTH 


ROUND IT TO LOWER EVEN 


CB74: 






95 


» 










CB74: 






96 


9 


COPY USEF 


'S CH 


IF IT DIFFERS 


FROM 


CB74: 






97 


« 


WHAT WE 


LAST PUT THERE; 




C874: 






98 


tt 










CS74; 




0874 


99 


CSB2 


EQU 


ft 




0874: A5 


24 




100 






LDA 


CH 


GET kT 


C876: CD 


7B 


04 


101 






CMP 


OLDCH 


IS IT THE SAME? 


CS79: FO 


03 


C87E 


102 






BEQ 


CSB3 


=>YES, USE OUR OWN 


C87B: 8D 


7B 


05 


103 






STA 


OURCH 


=>N0, USE HIS 


C87E: 




C87E 


104 


C8B3 


EQU 


ft 




Ce7E:A9 


06 




105 






LDA 


#G0ODF8 


CHECK F8 RDM 


C880:CD 


B3 


FB 


106 






CMP 


FBVERSIDN 


IF DIFFERENT. USER 


CB83: FO 


OB 


0890 


107 






BEQ 


CBB4 


HAS RELOADED RAMCARD 


CB85; 






108 


* 










0885: 






109 


* 


COPY FB RDM TO 


LANG CARD; 




CB85: 






110 


ft 










C885: 20 


78 


CF 


111 






JSR 


COPYROn 


COPY IT AGAIN 


CBBBiCD 


B3 


FB 


112 






OMP 


FSVERSION 


IS IT NOW CORRECT? 


C8BB:F0 


03 


C890 


113 






BEQ 


CBB4 


=>GREAT 


C8BD; 4C 


13 


08 


114 






JMP 


HANG 


=>WE HAVE WRONG RDMf 


C890: 






115 


* 










C890: 




CB90 


116 


C8B4 


EQU 


ft 




0890; 2S 






117 






PLP 




RECOVER CARRY (IN/OUT) 


C891:90 


03 


0896 


118 






BCC 


BOUT 


=>PRINT A CHAR 


CB93: 4C 


F6 


08 


119 






JMP 


B INPUT 


=MNPUT A CHAR 


C896: 




0896 


120 


BOUT 


EQU 


ft 




C896: AD 


FB 


04 


121 






LDA 


MODE 


SAY THAT WE'RE 


0879:29 


BF 




122 






AND 


#255-M, BINPU 


T ; PRINTING 


C89B:8D 


FB 


04 


123 






STA 


MODE 




C89E: 4C 


Al 


CS 


124 






JMP 


BPRINT 


->DUTPUT A CHAR 


C8A1: 






7 






INCLUDE BPRINT 




CBAl; 






2 






















CBAi: 






3 


ft 


BASIC OUTPUT; 






C8A1: 






4 






















C8A1: 




08A1 


5 


BPRINT 


EQU 


ft 




C8A1: AD 


7B 


06 


6 






LDA 


CHAR 


GET CHARACTER 


C8A4: 09 


8D 




7 






CMP 


tt$BD 


IS IT 0/R? 


08A6: DO 


IB 


0800 


8 






BNE 


NQWAIT 


=>NDPE, NO VIDWAIT 


CSAS: AC 


00 


CO 


9 






LDY 


KBD 


IS KEY PRESSED? 


08AB: 10 


13 


C800 


10 






BPL 


NOWAIT 


NO 


C8AD:C0 


93 




11 






CPY 


#«93 


IS IT CTL-S? 


08AF:D0 


OF 


0800 


12 






BNE 


NOWAIT 


ND. IGNORE IT 


08131:20 


10 


CO 


13 






BIT 


KBDSTRD 


CLEAR STROBE 


CBB4: AO 


00 


CO 


14 


KBDWAIT 


LDY 


KBD 


WAIT FOR NEXT KEYPRESS 


C8B7; 10 


FB 


CaB4 


15 






BPL 


KBDWAIT 




CBe9:C0 


93 




1& 






CPY 


#*93 


IF CTL-C. LEAVE IT 


08BB: FO 


03 


C8C0 


17 






BEQ 


NOWAIT 


IN THE KBD BUFFER 


C8BD:2C 


10 


CO 


18 






BIT 


KBDSTRB 


CLEAR OTHER CHARACTER 


0800: 




C8C0 


19 


NOMA 11 


EQU 


ft 




C8C0: 29 


7F 




20 






AND 


**7F 


DROP POSSIBLE HI BIT 


0803:09 


20 




21 






CMP 


#«30 


IS IT CONTROL CHAR? 


0804; BO 


06 


CBCO 


22 






BCS 


BPNCTL 


=>NOPE 



32 



Monitor ROM Listings 



CBCfr: 20 
C8C9: 4C 

cecc: 

CSCC: 
CSCC: 
CSCC: 
C8CC: AC 
C8CF: AD 
CaD2: 20 
CBD5: 
C8D5: 
C8D5: 
C8D9: EE 
C8D8: AD 
C8DB: CS 
C8DD: 90 
CaOF: 20 
C8E2: 

cee2: 

C8E2: AD 

CaE5: 20 

CBE8: AD 

caEB: 85 

CaED: 68 

CKE: AA 

CaEF: 68 

C8F0: AS 

C8F1:68 

CaF2: AD 

C8F5; 60 

CBF6: 

C8F6: 

C8F6: 

C8F6: 

C^^6: AD 

C8F9: 09 

CSFB: 8D 

C8FE: AD 

0901: A4 

C903: 91 

C905: 

C905: 20 

C90S: 20 

C90B: 8D 

C90E: 20 

C911: C9 

C913:F0 

C915: 4C 

C918 

C91S: 

C91S: 

C918: 

C91S: 

C91S: 

C918: 

C91B: 

C918: 

C91B: 

C918: 

C91B: 

C918: 

C91S: 

C91S: 

C918: 

C9ia: 

C918: 

C918: 20 

C91B;20 

C91E:20 

C92i:29 

C923: C9 

C925; 90 

C927: 29 

C929: 

C929: AO 

C92B: 

C92B: 

C92E: 

C930: 

C931: 

C933: 

C935: 

C935: 

C935: 

C938: 

C93A: 

C93D: 

C940: 

C942: 

C943: 

C945; 



99 CB 

E2 ca 



JSR 
JMP 



CTLCHAR 
BIORET 



7B 05 

7B 06 
F2 CE 



7B OS 
7B 05 
21 



7B 05 
AF CE 
FB 05 



FB 04 
7B 06 
24 
28 

C 
DD CE 
15 CB 
7B 06 
DD CE 



FO 



20 



52 CF 
15 CB 
65 CF 



72 C9 

05 C935 



FB C92B 
10 C945 



99 CB 
83 C9 



NOT A CTL CHAR. PRINT IT. 



CSCC 28 BPNCTL 



EQU 
LDY 
LDA 

JSR 



OlfftCH 
CHAR 

STDRCHAR 



i EXECUTE POSSIBLE CTL CHAR 
i«>EXECUTED OR lONORED 



lOET CH 

I GET CHAR <ALL S BITS) 

j STUFF ONTO SCREEN 



33 * BUMP THE CURSOR HORIZONTAL: 



INC 
LDA 
CMP 
BCC 



39 

40 * 

41 BIORET 



OURCH 
OURCH 
UNDUDTH 
BIORET 
X. CR 



EQU 
LDA 
JSR 
LDA 
STA 
PLA 
TAX 
PLA 
TAY 
PLA 
LDA 
RTS 

INCLUDE BINPUT 
BASIC INPUT: 



OURCH 
SETCH 
OURCV 
CV 



CHAR 



11 B INPUT 



EQU 
LDA 
ORA 
STA 
LOA 
LDY 
STA 
EQU 
JSR 
JSR 
STA 
JSR 
CMP 
BEQ 
JMP 



MODE 

ttn. BINPUT 

MODE 

CHAR 

CH 

(BASL), Y 

■* 

INVERT 

GETKEY 

CHAR 

INVERT 

tt*9B 

ESCAPING 

NOESC 



iBUnP IT 

iARE W£ PAST THE 
i END OF THE LINE? 
i ->N0. NO PROBLEM 
i YES. DO C/R 



I SET CH AND CV 
i FOR BASIC 



i RETURN TO BASIC 



iSAY THAT 

WE'RE INPUTTING 



i GET CHAR AT CURSCffi AND 

iGET CURSOR POSITION 

i REPAIR MONITOR'S SILLY ATTEMPT 

i CREATE OUR OWN CURSOR IMAGE 

i GET A KEY 

iSAVE IT 

I REMOVE CURSOR 

i ESCAPE KEY? 

i =>YES IT IS 

i=>Nn, IT'S NORMAL 



START AN ESCAPE SEQUENCE: 
WE HANDLE THE FOLLOWING ONES: 

a - HOME & CLEAR 

E - CLR TO EOL 

F - CLR TO EDS 

I - CURSOR UP 

J - CURSOR LEFT 

K - CURSOR RIGHT 

M - CURSOR DOWN 

R - RESTRICT TO UPPERCASE 

T - TURN OFF E5C-R 

4 - GOTO 40 COLUMN MODE 

8 - GDTO SO COLUMN MODE 
CTL-Q- QUIT (PR#0/IN#0> 

THE FOUR ARROW KEYS (AS IJKM) 



36 




MSB 


OFF 




37 


ESCAPING 


EQU 


* 




38 




JSR 


ESC ON 


ESCAPE CURSOR ON 


39 




JSR 


GETKEY 


GET ESCAPE FUNCTION 


40 




JSR 


ESC OFF 


REPLACE ORIGINAL CHARACTER 


41 




AND 


#«7F 


DROP HI BIT 


42 




CMP 


#£60 


IS IT LOWERCASE? 


43 




BCC 


ESCl 


=>N0, DON'T UPSHIFT 


44 




AND 


»255-«20 


UPSHIFT 


45 


ESCl 


EQU 


• 




46 




LDY 


ttESCNUM 


COUNT/INDEX 


47 


E5C2 


EQU 


» 




48 




CMP 


ESC TAB, Y 


IS IT A VALID ESCAPE? 


49 




BEQ 


ESC 3 


=>YES 


50 




DEY 






51 




BPL 


ESC2 


TRY 'EM ALI 


52 




BMI 


ESCSPEC 


*>MAYBE IT'S A SPECIAL ONE 


53 


* 








54 


ESC3 


EQU 


# 




55 




LDA 


ESCCHAR, Y 


GET CHAR TO "PRINT" 


56 




AND 


#t7F 


DROP HI BIT (FLAG) 


57 




JSR 


CTLCHAR 


EXECUTE IT 


58 




LDA 


ESCCHAR, Y 


GET FLAG 


59 




BMI 


ESCAPING 


=>STAY IN ESCAPE MODE 


60 




JMP 


B. INPUT 


='>QUIT ESCAPE MODE 


61 


» 








62 


ESC SPEC 


EQU 


* 
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33 



C945; 


C9 


11 




63 




CMP 


#111 


IE 




IT ESC-CTLQ? 


C947: DO 


OB 


C954 


64 




BNE 


ESCSPEC2 


=>N0 


C949; 20 


AA 


CD 


65 




JSR 


QUIT 


DO THE QUITTING STUFF 


C94C: A9 


98 




66 




LDA 


»»98 


RETURN CTL-X AS 


C94E: aO 


7B 


06 


67 




3TA 


CHAR 


THE CHARACTER 


C951; 4C 


E2 


C8 


68 




JMP 


BIORET 


=>QUIT THE CARD FOREVER 


C954: 






69 










C954; 




C954 


70 


ESCSPEC2 


EQU 


* 




C954: C9 


53 




71 




CMP 


#'R' 


IS IT ESC-R7 


C956: DO 


OB 


C9&3 


72 




BNE 


ESCSPEC3 


=>N0 


C95B: AD 


FB 


04 


73 




LDA 


MODE 


YES- SET IT 


C95B: 09 


80 




74 




ORA 


#M, ESCR 




C95D: 8D 


FB 


04 


75 




STA 


MODE 




C960: 4C 


05 


C9 


76 


ESC NONE 


JMP 


B, INPUT 


QUIT ESCAPE MODE 


C963: 






77 










C963: 




C963 


78 


ESCSPEC3 


EQU 


« 




C963; C9 


54 




79 




CMP 


#'T' 


IS IT ESC-T7 


C965: DO 


F9 


C960 


80 




BNF 


ESC NONE 


=>NOTHING 


C967: AD 


FB 


04 


81 




LDA 


MODE 




C96A:29 


7F 




82 




AND 


#255-M. ESCR 




C96C; SD 


FB 


04 


S3 




STA 


MODE 




C96F: 4C 


05 


C9 


84 




JMP 


B. INPUT 


QUIT ESCAPE MODE 


C972; 




C972 


86 


ESCTAB 


EQU 


# 




C972; 40 






87 




ASC 


'(*' 




C973:4i 






88 




ASC 


'A' 


HANDLE OLD ESCAPES 


C974: 42 






89 




ASC 


'B' 




C975: 43 






90 




ASC 


'C 




C976: 44 






91 




ASC 


'D' 




C977: 45 






92 




ASC 


'E' 




C97S-, 46 






93 




ABC 


'F ' 




C979: 49 






94 




ASC 


■1 ' 




C97A: 4A 






95 




ASC 


'J' 




C97B: 4B 






96 




ASC 


'K' 




C97C: 40 






97 




ASC 


'M' 




C97D: 34 






98 




ASC 


'4' 




C97E: 38 






99 




ASC 


'8' 




C97F: Oa 






100 




DFB 


¥08 


LEFT ARROW 


C9S0; OA 






101 




DFB 


*0A 


DOUN ARROW 


C981: 0i3 






102 




DFB 


SOB 


UP ARROW 


C982: 15 






103 




DFB 


«15 


RITE ARROW 


C983: 




0011 


104 


ESCNUM 


EQU 


*-ESCTAB 




C983: 






105 




MSB 


ON 




C9B3: 




C983 


106 


ESCCHAR 


EQU 


» 




C983:0C 






107 




DFB 


*oc+«oo 


<± 


FORMFEED 


C984: IC 






108 




DFB 


SIC 


A 


FS 


C985: 08 






109 




DFB 


S08 


B 


BS 


C9S6: OA 






110 




DFB 


¥0A 


C 


LF 


C987: IF 






111 




DFB 


$1F 


D 


US 


C988; ID 






112 




DFB 


*lD+»00 


E 


GS 


C989: OB 






113 




DFB 


*0B+«00 


F 


VT 


C9BA: 9F 






114 




DFB 


*lF+*80 


I 


US (STAY ESC) 


C98B : 88 






115 




DFB 


«0B+«80 


J 


BS <STAY ESC) 


C9SC: 9C 






116 




DFB 


SlC+tBO 


K 


FS (STAY ESC) 


C98D: aA 






117 




DFB 


S0A+S80 


M 


LF (STAY ESC) 


C9aE: 11 






lis 




DFB 


Sll+*00 


4 


DCl 


C9SF: 12 






119 




DFB 


*12+*00 


8 


DC2 


C990: 88 






120 




DFB 


»08+»ao 


■c- 


BS (STAY ESC) 


C991;8A 






121 




DFB 


*0A+*80 


DN 


LF (STAY ESC) 


C992: 9F 






122 




DFB 


*lF+*80 


UP 


US (STAY ESC) 


C993; 9C 






123 
124 
126 
127 

128 




DFB 


SlC+*80 


-> 


FS (STAY ESC) 


C994: 
C994: 
C994: 


















* PASCAL 


STATUS: 






C994: 














C994; 




C994 


129 


P STATUS 


EQU 


» 




C994: AA 






130 




TAX 




SAVE REQUEST CODE 


C995: 20 


C8 


CF 


131 




JSR 


PSETUP 


SETUP ZP STUFF 


C998: aA 






132 




TXA 




IS IT 'READY FDR OUTPUT? 


C999: DO 


03 


C99E 


133 




BNE 


PSTATUS2 


=>ND 


C99B:38 






134 




SEC 




j YES, READY FOR OUTPUT 


C99C: BO 


16 


C9B4 


135 




BCS 


PSTATUS4 




C99E: 






136 


» 








C99E; 




C99E 


137 


PSTATUS2 


EQU 


« 




C99E: C9 


01 




138 




CMP 


#1 


i IS IT 'ANY INPUT?' 


C9A0; FO 


OE 


C9B0 


139 




BEQ 


PSTATUS3 


i =>YES 


C9A2: A2 


03 




140 




LDX 


tt3 


J IORESULT='ILGL OPERATION 


C9A4: 18 






141 




CLC 






C9A5: 60 






142 
143 
144 
145 
146 




RTS 






C9A6: 
C9A6: 






» PASCAL 


1. OUTPUT HOOK: 




C9A6: 
C9A6: 00 








BRK 




: PADDING 


C9A7: 00 






147 




BRK 






C9A8: 00 






148 




BRK 






C9A9: 00 






149 




BRK 






C9AA: 




OOOO 


130 




IFNE 


*-»C9AA 




S 






151 




FAIL 


2, 'C9AA 


HOOK ALIGNMENT' 


C9AA 








1S2 




FIN 






C9AA 


AD 


7B 


06 


133 




LDA 


CHAR 


iGET OUTPUT CHARACTER 


C9AD 


4C 


37 


C3 


134 




JMP 


JPWRITE 


i=>USE STANDARD WRITE 


C9S0 








153 


« 













\A 
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C9B0; 
C9B0: AD 
C9B3: OA 
C9B4: Aa 
C9B6: 60 
C9S7: 
C9B7: 
C9S7: 
C9B7: 
C937: 
C907: 
C9B7: C9 
C989: DO 
C9BB: AC 
C9BE: 20 
C9C1; 09 
C9C3: 8D 
C9C6; 
C9C6: 
C9C6: 
C9C6; 
C9C6: 
C9C6: AD 
C9C9: 29 
C9CB: DO 
C9CD: 
C9CD: 
C9CD; 
C9CD- 
C9CD; AD 
C9D0: C9 
C9D2: FO 
C9D4: C9 
C9D6: DO 
C9DS: 20 
C9DB: DO 
C9DD: FO 
C9DF: 
C9DF: 
C9DF: 
C9DF: 
C9DF: 
C9DF: AD 
C9E2: C9 
C9E4: FO 
C9E6: C9 
C9ES: FO 
C9EA. C9 
C9EC: FO 
C9EE: C9 
C9F0: DO 
C9F2: 20 
C9F5: DO 
C9F7: 
C9F7; 
C9F7: AD 
C9FA; 49 
C9FC: SD 
C9FF; 4C 
CA02; 
CAD2: AD 
CA05: 29 
CA07: SD 
CAOA: 
CAOA: 
CAOA: AD 
CAOD: 29 
CAOF: FO 
CAll: AD 
CA14: 29 
CA16: DO 
CAIS: AD 
CAIB: C9 
CAID: 90 
CAIF; 29 
CA21: 8D 
CA24; 
CA24: 
CA24: 4C 
CA27; 
CA27: 
CA27: 
CA27: 
CA27: 
CA27: 
CA27: 
CA27: 
CA27: 
CA27: 
CA27: 
CA27: AD 



FB 04 

10 

12 C9DF 



C9F7 
CAOA 



C9DF 
6 

CA02 

CA02 

CA02 

CAOA 
A 
CAOA 

C9F7 



156 
157 
158 
159 
160 
162 
163 
164 
165 
166 
167 
16B 
169 
170 
171 
172 
173 
174 
175 
176 
177 
178 



182 

183 

184 ■ 

185 

186 

187 

18S 

189 

190 

191 

192 

193 

194 

195 

196 

197 

198 : 

199 

200 

201 

202 

203 

204 

205 

206 

207 

208 

209 

210 



FB 04 
OA CA 



Ffl 04 
EF 
FB 04 



PSTATUS3 EQU * 

LDA KBD 

ASL A 

PSTATUS4 LDX #0 

RTS 

BASIC INPUT, CONTINUED: 
NOT AN ESCAPE SEQUENCE- 



CMP 


#*95 


BNE 


B. NOPICK 


LDY 


OURCH 


JSR 


PICK 


GRA 


tt*BO 


STA 


CHAR 



; IS THERE A KEYPRESS? 
; STROBE — >CARRY 
; IORESULT='GOOD' 



: NOT ESCAPE KEY 

; IS IT PICK? 

; =>NOPE 

i YDU CAN PICK YER FRIENDS, 

; YES, PICK THE CHAR 

i ALWAYS PICK AS NORMAL 

; SAVE AS KEYSTROKE 



TRACK QUOTATION MARKS FOR THE 
RESTRICT-UPPERCASE FEATURE; 



. NOPICK EQU « 

LDA MODE 

AND *tM. LIT 

BNE Q. CHKCAN 



i ARE WE DOING LITERAL INPUT? 
; =>YES 



LITERAL INPUT'S INACTIVE, SEE IF 
WE CAN START LITERAL INPUT: 



LDA 


CHAR 


CMP 


#*A2 


BEQ 


B, FLIP 


CMP 


#*S8 


BNE 


B, FIXCHR 


JSR 


GETPRIOR 


BNE 


B, FIXCHR 


BEQ 


B. FLIP 



; GET THE CHAR 

MS IT A DOUBLE QUOTE? 

i =>YES- FLIP LITERAL MODE 

; IS HE MOVING LEFT? 

i =>NOPE, JUST REG CHAR 

,-GRAB PRIOR CHAR 

; =>NOT DELETING A QUOTE 

; (ALWAYS) HIE'S DELETED THE QUOTE 



* LITERAL INPUT'S ACTIVE. SEE IF 

* IT SHOULD BE CANCELLED YET; 



211 B, FLIP 



216 ■ 

217 

218 

219 

220 



CAOA 221 B, FIXCHR 

4 222 

223 

CA24 224 

4 225 

226 

CA24 227 

6 228 

229 

CA24 230 

231 

6 232 

233 

CA24 234 D. INRET 
8 235 

237 



EQU 
LDA 
CMP 
BEQ 
CMP 
BEQ 
CMP 
BEQ 
CMP 
BNE 
JSR 
BNE 

EQU 
LDA 
EOR 
STA 
JMP 
EQU 
LDA 
AND 
STA 

EQU 
LDA 
AND 
BEQ 
LDA 
AND 
BNE 
LDA 
CMP 
BCC 
AND 
STA 



CHAR 

tt*A2 

B. CANLIT 

#*98 

B, CANLIT 

#*8D 

B- CANLIT 

#«B8 

B. FIXCHR 

GETPRIOR 

B. FIXCHR 



MODE 

ttM. LIT 

MODE 

B. FIXCHR 

* 

MODE 

«255-M. LIT 

MODE 



MODE 

#M. ESCR 

B. INRET 

MODE 

ttM. LIT 

B. INRET 

CHAR 

«*E0 

B. INRET 

#*DF 

CHAR 



; GET CURRENT CHAR 

; IS CURRENT CHAR THE CLOSING QUOTE? 

i =>YES 

; CANCEL LITERAL INPUT 

, IF CTLX OR RETURN 

; OR BACK OVER " 

; BACKSPACE? 

; =>N0, NOT DELETING QUOTE 
; GET CHAR HE'S DELETING 
; =>NOT DELETING A QUOTE 



i FLIP THE MODE 



; CANCEL LITERAL INPUT 



i ESC-R FACILITY ACTIVE? 

i =>NOPE 

(LITERAL INPUT ACTIVE? 

i =>YES, NO UPSHIFT 

i GET THE CHAR 

i IS CHAR LOWERCASE? 

; =>N0, NO NEED TO SHIFT IT 

i RESTRICT TO U/C 



EQU 
JMP 



BIORET 



1 =>RETURN TO CALLER 



239 
240 
241 
242 
243 
244 
245 
246 
247 
248 



NAME 

FUNCTION 
INPUT 
OUTPUT 

VOLATILE 
CALLS 



GETPRIOR 

GET CHAR BEFORE CURSOR 

OURCH, OURCV 

'BEQ' IF CHAR=DDL QUOTE 

'BNE' IF NOT 

AC, 'TEMPI ' 

PICK, X. BS, X. FS 



EQU 
LDA 



i DON'T TRY TO LOOK 
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CA2A 


OD 


7B 


05 


249 


CA2D 


FO 


lA 


CA49 


250 


CA2F 


98 






251 


CA30 


48 






252 


CA31 


20 


DB 


CB 


253 


CA34 


AC 


7B 


05 


254 


CA37 


20 


01 


CF 


255 


CA3A 


09 


80 




256 


CA3C 


8D 


78 


04 


257 


CA3F 


20 


26 


CC 


258 


CA42 


68 






2S9 


CA4.3 


AS 






260 


CA44 


AD 


78 


04 


261 


CA47 


C9 


A2 




262 


CA49 






CA49 


263 


CA49 


60 






264 


CA4A 








9 


CA4A 








2 


CA4A 








3 


CA4A 








4 


CA4A 






CA4A 


5 


CA4A 


A9 


22 




6 


CA4C 


4C 


51 


CA 


7 


CA4F 






CA4F 


B 


CA4F 


A9 


20 




9 


CA51 








10 


CA51 






CA51 


U 


CA51 


OD 


FG 


04 


12 


CA54 


20 


9B 


CD 


13 


CA57 


20 


C8 


CF 


14 


CA5A 








15 


CA5A 








16 


CA5A 








17 


CA5A 








18 


CA5A 








19 


CA5A 


20 


24 


CB 


20 


CA5D 


FO 


03 


CA62 


21 


CA5F 


A2 


09 




22 


CA61 


60 






23 


CA62 








24 


CA62 






CA62 


25 


CAi>2 


BD 


01 


CO 


26 


CA65 


BD 


OD 


CO 


27 


CA6B 


8D 


OF 


CO 


28 


CA6B 


20 


42 


CD 


29 


CA6E 


20 


DD 


CE 


30 


CA71 


A2 


00 




31 


CA73 


60 






32 


CA74 








10 


CA74 








2 


CA74 








3 


CA74 








4 


CA74 






CA74 


5 


CA74 


20 


C8 


CF 


6 


CA77 








7 


CA77 


20 


15 


CB 


8 


CA7A 


29 


7F 




9 


CA7C 


8D 


7B 


06 


10 


CA7F 


A2 


00 




11 


CABl 


AD 


FB 


04 


12 


CAB4 


29 


02 




13 


CAB6 


FO 


02 


CABA 


14 


CABS 


A2 


C3 




15 


CASA 








16 


CA8A 






CASA 


17 


CASA 


AD 


7B 


06 


IB 


CA8D 


60 






19 


CASE 








11 


CASE 








2 


CASE 








3 


CASE 








4 


CAGE 






CASE 


5 


CASE 


BD 


7S 


06 


6 


CA91 


20 


ca 


CF 


7 


CA94 








8 


CA94 


20 


DD 


CE 


9 


CA97 


AD 


FB 


04 


10 


CA9A 


29 


08 




11 


CA9C 


FO 


20 


CACB 


12 


CA9E 








13 


CA9E 








14 


CA9E 








15 


CA9E 






CA9E 


16 


CA9E 


AD 


FB 


06 


17 


CAAl 


10 


OC 


CAAF 


la 


CAA3 


AD 


7E 


06 


19 


CAA6 


38 






20 


CAA7 


E9 


20 




31 


CAA9 


BD 


FB 


06 


22 


CAAC 


4C 


OF 


CB 


23 


CAAF 








24 



ORA 


OURCH 


BACK IF a UPPER-LEFT 


SEQ 


OPX 


CORNER OF WINDOW! ! ! 


TYA 




SAVE V 


PHA 






JSR 


X. BS 


BACK UP 1 CHAR 


LDY 


DURCH 


GET CH AND 


JSR 


PICK 


PICK PRIOR CHAR 


ORA 


#«B0 


PICK AS NORMAL VIDEO 


STA 


TEMPI 


HOLD CHAR 


JSR 


X. FS 




PLA 




RESTORE 


TAV 




Y 


LDA 


TEMPI 




CMP 


#SA2 


IS IT DBL QUOTE? 


EQU 


« 




RTS 




RETURN WITH BEQ/BNE 


INCLUDE PINIT 





PASCAL INITIALIZATION: 



PINITl.O EQU ■» 

LDA #f\. PASCAL+M. PASl- 

JMP PINIT2 

PINIT EQU * 

LDA tttl. PASCAL ; SAY WE'RE 



PINIT2 



BABE ADDR IS WRONG, 
JSR BASCALC : FORCE 



EQU 


«■ 


STA 


MODE 


JSR 


FULL80 


JSR 


P SETUP 



CARD 


'S PLUGGED IN 


JSR 


TESTCARD 


BEQ 


PI GOOD 


LDX 


#9 


RTS 




EQU 


^f 


STA 


SETSOCDL 


STA 


SETSOVID 


STA 


SETALTCHAR 


JSR 


X. FF 


JSR 


INVERT 


LDX 


#0 


RTS 




INCLUDE PREAD 



i RUNNING PASCAL 

i SET FULL 24x80 WINDOW 

; SETUP ZP STUFF 

BUT X. FF FIXES IT BELOW: 

A GOOD BASCALC 



IS IT THERE? 

=>YES 

IORESULT='NO DEVICE' 



ENABLE 80 STORE 

AND 80 VIDEO 
NORM+INV LCASE 
HOME & CLEAR IT 
PUT CURSOR THERE 
IDRESULT='GOOD' 



PASCAL INPUT: 



EQU 


* 


JSR 


PSETUP 


JSR 


GETKEY 


AND 


#*7F 


STA 


CHAR 


LDX 


#0 


LDA 


MODE 


AND 


#M. PASi. 


BEQ 


PREADRET2 


LDX 


#<CN00 



PREADRET2 EQU * 

LDA CHAR 



; SETUP ZP STUFF 

; GET A KEYSTROKE 

i DROP HI BIT 

i SAVE THE CHAR 

, IORESULT='GOOD' 

J ARE WE IN 1. 0-MODE? 



; RESTORE CHAR 



INCLUDE PWRITE 



PASCAL OUTPUT. 



R I TE EQU ■» 

STA CHAR 

JBR PSETUP 

JSR INVERT 

LDA MODE 

AND »M. GDXY 

BEQ PWRITE3 

HANDLE GOTOXY STUFF: 



EQU 


■it 


LDA 


XCOGRD 


BPL 


GETY 


LDA 


CHAR 


SBC 


#32 


STA 


XCOORD 


JMP 


PWRITERET 



; SAVE CHARACTER 
1 SETUP ZP STUFF 



i TURN CURSOR OFF 

; ARE WE DOING GOTOXY? 



=>N0, PRINT IT 



; ARE WE WAITING FOR X? 
; =>N0, THIS IS Y 



; MAKE BINARY 

, =>NOW WAIT FOR Y 
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CAAF 








29 


CAAF: 






26 


CAAF: 




CAAF 


27 


CAAF: AD 


7B 


06 


se 


CABS: 38 






29 


CAB3: E9 


20 




30 


CABS: 8D 


FB 


05 


31 


CABS: 20 


51 


CB 


32 


CABD; AD 


FB 


06 


33 


CASE;BD 


7B 


05 


34 


CACl: AD 


FB 


04 


35 


CAC4:29 


F7 




36 


CAC6:BD 


FB 


04 


37 


CAC9: DO 


44 


CBOF 


38 


CACB: 






39 


CACB: 




CACB 


40 


CACB AD 


7B 


06 


41 


CACE:C9 


IE 




42 


CADO: FO 


OA 


CADC 


43 


CAD2;C9 


20 




44 


CAD4:B0 


15 


CAEB 


45 


CAD6: 20 


99 


CB 


46 


CAD9: 4C 


OF 


CB 


47 


CADC 






4B 


CADC: 






49 


CADC 






50 


CADC 




CADC 


51 


CADC AD 


FB 


04 


52 


CADF 09 


OS 




53 


CAEi ao 


FB 


04 


54 


CAE4 A9 


FF 




55 


CAE6 8D 


FB 


06 


56 


CAE9 30 


24 


CBOF 


57 


CAEB 






5B 


CAEB 






59 


CAEB 






60 


CAES 




CAEB 


61 


CAEB 


09 


SO 




62 


CAED 


AC 


7B 


05 


63 


CAFO 


20 


F2 


CE 


64 


CAF3 








65 


CAF3 








66 


CAF3 








67 


CAF3 


EE 


7B 


05 


68 


CAF6 


AD 


7B 


05 


69 


CAF9 


C5 


21 




70 


CAFE 


90 


12 


CBOF 


71 


CAFD 








72 


CAFD 








73 


CAFD 








74 


CAFD 








75 


CAFD 


AD 


FB 


04 


76 


CBOO 


29 


01 




77 


CB02 


FO 


05 


CB09 


78 


CB04 


CE 


7D 


05 


79 


CB07 


DO 


06 


CBOF 


SO 


CB09 








81 


CB09 






CB09 


82 


CB09 


20 


EC 


CB 


83 


CBOC 


20 


91 


CC 


84 


CEOF 








85 


CBOF 






CBOF 


86 


CBOF 


20 


DD 


CE 


37 


CB12 


A2 


00 




88 


CB14 


&0 






S9 


CB15 








12 


CB15 








2 


CB15 








3 


CB15 








4 


CB15 








5 


CB15 








6 


CB15 








7 


CD 15 








a 


CB15 








9 


CB15 






CD15 


10 


CB15 


E6 


4e 




11 


CE17 


DO 


02 


CBIB 


12 


CB19 


E6 


4F 




13 


CBIB 






CBIE 


14 


CBIQ 


AD 


00 


CO 


15 


CBIE 


10 


F5 


CBIS 


16 


CB20 


BD 


10 


CO 


17 


CB23 


60 






IB 


CB24 








19 


CB24 








20 


CB24 








21 


CB24 








22 


CB24 






23 


CB24 








24 


CB24 








25 


CB24 








26 



NOW DO THE OOTOXY: 



OETY 


EOU 


« 




LDA 


CHAR 




SEC 






SBC 


tt32 




STA 


ouRcy 




JSR 


BASCALC 




LDA 


XCDDRD 




STA 


OURCH 




LDA 


MODE 




AND 


#255-M. ODXY 




STA 


MODE 


» 
PWRITE3 


9NE 


PWRITERET 


EQU 


* 




LDA 


CHAR 




CMP 


**1E 




BEQ 


STARTXY 




CMP 


#•20 




QCS 


PWRITE4 




JSR 


CTLCHAR 




JMP 


PWRITERET 



START THE SOTOXY SEQUENCE. 



XY 


EQU 


» 




LDA 


MODE 




ORA 


#M. GOXY 




STA 


MODE 




LDA 


#-1 




STA 


XCOORD 




BMI 


PWRITERET 



* CONVERT YCOORD 



J COMPUTE BASE ADDRESS 



I TURN OFF OOTOXY 



i '>DONE (ALWAYS TAKEN) 



GET CHAR TG PRINT 

IS IT OOTOXY? 

->YES 

IS IT OTHER CTL? 

=>N0, PRINT IT 

EXECUTE IT IF POSSIBLE 

=>EXECUTED OR IGNORED 



i TURN ON FLAG 



SET X NEGATIVE TD 

SHOW WE NEED IT 
==>EX1T TILL COORDS COME BY (ALWAYS) 



» JUST A PRINTABLE CHARACTER: 

PWRITE4 EQU * 

ORA tt«80 

LDY OURCH 

JSR STORCHAR 

* BUMP CURSOR HORIZONTAL: 

INC OURCH 

LDA OURCH 

CMP WNDHDTH 

BCC PWRITERET 

« IF IN TRANSPARENT MODE, DON'T 
» WRAPAROUND THE RIGHT EDGE, . , 

LDA MODE 

AND #M. TRANS 

BEQ PUWRAP 

DEC OURCH 

BNE PWRITERET 

PWWRAP EQU * 

JSR X. CR 
JSR X. LF 



FORCE TO NORMAL 
GET CH 

STUFF IT! 



iBUMP IT 

, ARE WE PAST THE 
; END OF THE LINE? 
i =>ND, NO PROBLEM 



GET MODE 

WELL??? 

=>NOT TRANSPARENT 

PIN AT RIGHT EDGE 

(ALWAYS TAKEN) 



; YES. DO C/R 
; AND L/F 



PWRITERET 



EQU * 

JSR INVERT 

LDX #0 

RTS 

INCLUDE SUBSl 



; TURN CURSOR DN 
: iaRESULT='GOOD' 



» NAME 


GETKEY 






• FUNCTION 


GET A 


KEYSTROKE 




* INPUT 


NONE 








* OUTPUT 


AC=KEYCODE 






* VOLATILE 


NONE 








GETKEY 


EQU 


* 








INC 


RNDL 




, BUMP RANDOM 




BNE 


GE1K2 








INC 


RNDH 






GETK2 


EQU 


» 








LDA 


KBD 




J KEYPRESS? 




BPL 


GETKEY 




i =>NOPE 




STA 


KBDSTRB 




; CLEAR STROBE 




RTS 








• NAME 


TESTCARD 






» FUNCTION 


SEE IF 80C0L CARD 


PLUGGED IN 


* INPUT 


NONE 








* OUTPUT 


'BFQ' 


IF CARD 


AVAILABLE 


* 


'BNE ' 


IF NOT 






* VOLATILE 


AC. Y 
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CB24: C 

CB24: AD IC CO 



28 TESTCARD 



CB27: 
CB28: 
CB2A: 
CB2D: 
CB30: 
CB31: 
CB32: 
CB33: 
CB36: 
CB39: 
CB3C: 
CB3F: 
CB42: 
CB43: 
CB4.5: 
CB4B: 
CB48; 
CB4A: 
CB4D: 
CB4D: 
CB4E: 
CB4E; 
CE50: 
CB51: 
CB51: 
CB51: 
CB51: 
CB51: 
CB51: 
CB51: 
CB51: 
CB51: 
CB51: 
CE51: 
CB51: 
CB51: 
CB51: 
CB52: 
CB54: 
CB54: 
CBS5: 
CB55: 
CB56; 
CBSa: 
CB5B: 
CB5B; 
CB5C: 
CB5D: 
CE5F: 
CB61: 
CB63: 
CB66; 
CB67: 
CB69: 
CB68: 
CB6D: 
Ca6F: 
CB70; 
CB71: 
CB73: 
CB75; 
CB75: 
CB75: 
CB75: 
CB77: 
CB78; 
CB7B: 
CB7D: 
CB7E; 
CB7E: 
CB7F: 
CBai: 
CB83: 
CB86: 
CB86: 
CB86: 
CBa6: 
CB89: 
CB8B: 
CB8D; 
CD90: 
CB92; 
CB94: 
CB97: 
CB97: 
CB98: 
CB99: 
CB99: 
CB99: 
CB99: 



A9 88 
2C IS ■ 
SD 01 ■ 
OS 
78 
OS 

8D 55 ' 
AC 00 ' 
8D GO I 
AD 00 ' 
8C 00 ' 
28 

BO 03 
8D 54 I 

30 03 
8D 00 I 



CB48 
CB4D 



CB4D 
CB4E 



BO 03 c: 

AD FB 05 



29 03 
09 04 



90 02 
69 7F 
85 28 



05 28 
85 28 



2C IF CO 

10 01 CB7E 



65 28 
85 28 

BD 7B 07 



AD FB 04 

29 01 

FO OA CB97 

AD FB 04 

29 20 

DO 03 CB97 

20 75 FC 

CB97 



48 ST AY 80 



50 TESTFAIL 



LDA 
BIT 
STA 
PHP 
St- 1 
PHP 
STA 
LDV 
STA 
LDA 
STY 
PLP 
BCS 
STA 
EQU 
BMI 
STA 
EQU 
PLP 
EQU 
CMP 



#*88 

PDSOCDL 

SETBOCaL 



TXTPAGE2 

S0400 

*0400 

S0400 

S0400 

STAY2 
TXTPAGEl 



; REMEMBER CURRENT VIDEO DISPLAY 

; IN THE CARRY 

i USEFUL CHAR FDR TESTING 

i REMEMBER VIDEO MODE IN 'N' 

; ENABLE 80C0L STORE 

; LOCK INTERRUPTS WHILE 

; SCREENHOLES ARE WRONG 

; SAVE 'N' AND 'C ' FLAGS 

; SET PAGE2 

; GET FIRST CHAR 

; SET TO A '»' 

; GET IT BACK FROM RAM 

; RESTORE ORIG CHAR 

; RESTORE 'N' AND 'C' FLAGS 

; STAY IN PAGE2 

: RESTORE PAGEl 



, ALLOW IRQ AGAIN 



; WAS CHAR VALID? 

i RETURN RESULT AS BEQ/BNE 



* 


NAME 


BASCALC, BASCALCZ 


* 


FUNCTION 


CALC BASE ADDR FOR SCREEN LINE 


« 


INPUT 


OURCV (BASCALC) 


» 




AC^^CV <BASCALCZ) 


« 


OUTPUT 


BASL/BASH 


« 


VOLATILE 


NOTHING 


* 


CALL S 


SNIFFIRQ 



63 SNIFFIRQ 



65 BASCALC 



68 BASCALCZ 



70 BSCLCl 



74 BSCLCIA 



85 BSCLC2 



BCC 
EQU 
SEC 
EQU 
PHA 
BCS 
LDA 
EQU 
PHA 
LSR 
AND 
ORA 
STA 
STA 
PLA 
AND 
BCC 
ADC 
STA 
ASL 
ASL 
ORA 
STA 



i RIPPED OFF FROM F8 ROM 
; SHOW ENTRY POINT 



; SHOW ENTRY POINT 



BSCLCIA 
OURCV 



#«03 
tt$04 
BASH 
QLDBAEH 

#*ie 

BSCLC2 

«*7F 

BASL 



BASL 
BASL 



; SAVE FOR F/W PROTOCOL 



HANDLE THE SCROLLING WINDOW: 



* SNIFF FOR IRQ IF NECESSARY: 



98 BASCLC3 



100 
101 
102 
103 
104 
105 
106 
107 

loa 

109 
110 
111 
112 
113 
114 
115 
116 
117 



LDA 


WNDLFT 


PHP 




BIT 


RD80VID 


8PL 


BASCLC3 


LSR 


A 


EQU 


« 


PLP 




ADC 


BASL 


STA 


BASL 


STA 


OLDBABL 



LDA 
AND 
BEQ 
LDA 
AND 
BNE 
JSR 
EQU 
PLA 
RTS 



MODE 
#M. IRQ 

BASCLCX 

MODE 

ttM. PASCAL 

BASCLCX 

SNIFFIRQ 



PRESERVE CARRY 

WHICH MODE? 

=-">40. NO DIVIDE, 

DIVIDE BY 2 FOR BOCOL WINDOW 

RESTORE CARRY 

ADJUST BASE FOR WNDLFT 

SAVE FDR F/W PROTOCOL 



:=>IRQ DISABLED, RETURN 
i IS BASIC RUNNING? 



j=>DON'T SNIFF UNDER PASCAL 
i GD DO IT 



i RESTORE AC 



NAME : CTLCHAR 
FUNCTION: EXECUTE CTL CHAR 
INPUT : AC=CHAR 
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Monitor ROM Listings 



78 04 
07 

05 CBAB 
71 CC 
03 CBAE 
CBAB 



04 



CF CE 
30 CO 



CB97: 

CB99: 

CB79- 

CB99: 

CB99, 

CB99: 

CB99: 

CB99- SO 

CB9C: 48 

CB9D: 98 

CB9E: 48 

CB9F: 

CB9F: AC 

CBA2; CO 

CBA4: 90 

CBA6: 29 

CBA9: DO 

CBAB; 

CBAB: 38 

CBAC. BO 

CBAE; 

CBAE: 

CBAE: 20 B6 CO 



CBBl: 18 
CBB2: 
CBB2: 6a 
CBB3; A8 
CSB4: 68 
CBB5: 60 
CBB6. 
CBB6: 
CBB6; 48 
CBD7: B9 
CBBA: 48 
CBBB: 60 
CBBC: 
CBBC: 
CBBC: 
CBBC: 
CBBC: A9 
CBBE; 20 
CBCl: AO 
CBC3; A9 
CBC5: 20 
CBC8: AD 
CBCB: 89 
CBCC: DO 
CBCE: 60 
CBCF: 
CBCF: 
CBCF: 38 
CBDO: 48 
CBDl: E9 
CBD3; DO 
CBD5: 68 
CBD6; E9 
CBDS: DO 
CBDA; 60 
CBDB: 
CBDB: 
CBDB: 
CBDB. 
CBDB: CE 
CBDE; 10 
CBEO: A5 
CBE2: 
CBE2: 90 
CBE5: CE 
CBES: 20 
CBEB: 
CBEB: 60 
CBEC: 
CBEC: 
CBEC: 
CBEC: 
CBEC: AD 
CBEF: 29 
CBFl: DO 
CBF3: AD 
CBF6:29 
CBFBiFO 
CBFA; 30 
CBFD: 
CBFD: 
CBFD: A9 
CBFF: BD 
CC02: AD 
CC05: 29 
CC07: DO 
CC09: 20 
CCOC: 



120 * OUTPUT 



CBB2 
CBAE 



CBEB 
CBE2 



7B 05 
7B 05 
34 CC 



7B 05 
FB 04 



122 

123 

124 

125 

126 ■ 

127 



130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140 

141 

142 

143 

144 

145 

146 

147 

148 

149 

150 

151 

152 

153 

154 

155 

156 

157 

15S 

159 

160 

161 

162 

163 

164 

165 

166 

167 

168 

169 

170 

171 

172 

173 

174 

175 

176 

177 

176 

179 

180 

IBl ■ 

182 

183 

184 

185 

186 : 

187 

188 

189 

190 : 

191 

192 ■ 

193 

194 

195 

196 

197 

198 

199 

200 

201 

202 

203 

204 

205 

206 

207 

206 

209 

210 

211 



VOLATILE: 
CALLS 



'DCS' IF NOT CTL 
'BCC ' IF CTL EXECUTED 
NOTHING 
MANY THINGS 



TEMPI 

#507 

CTLCHARX 

CTLADH-7, 

CTLGO 



EQU 
STA 
PHA 
TYA 
PHA 

LDY 
CPY 
BCC 
LDA 
BNE 
EQU 
SEC 
BCS 



EQU « 

JSR CTLXFER 



TAY 
PLA 
RTS 

EQU * 

PHA 

LDA CTLADL-7, Y 

PHA 

RTS 



* EXECUTE BELL: 

X. BELL EQU 
LDA 
JSR 
LDY 

BELL2 LDA 
JSR 
LDA 
DEY 
BNE 
RTS 



#$40 
WAIT 
#ICO 
*t*OC 
WAIT 
SPKR 



WAIT2 
WAIT3 



EQU 
SEC 
PHA 
SBC 
BNE 
PLA 
SBC 
BNE 
RTS 



» EXECUTE BACKSPACE: 



EQU 


* 


DEC 


OURCH 


BPL 


BSDONE 


LDA 


WNDWDTH 


EQU 


« 


STA 


GURCH 


DEC 


QURCH 


JSR 


X US 


EQU 


* 


RTS 





EXECUTE CARRIAGE RETURN: 



: TEMP SAVE OF CHAR 
i SAVE AC 
i SAVE Y 



; GET CHAR IN QUESTION 
i IS. IT NUL. . ACK? 
i =>YES, NOT USED 
i IS IT CTL? 
i =>YES 

i SAY 'NOT CTL ' 
i =>DONE 



; EXECUTE SUBROUTINE 

; SAY 'CTL CHAR EXECUTED' 

; RESTORE 

i Y 

; AND AC 



; PUSH ONTO STACK FOR 
i TRANSFER TRICK 



i XFER TO ROUTINE 



i RIPPED OFF FROM MONITOR 



; RIPPED OFF FROM MONITOR ROM 



EQU 


« 


LDA 


MODE i 


AND 


#n. PASCAL 


BNE 


X. CRPAS J 


LDA 


MODE i 


AND 


#». B INPUT 


BEQ 


X. CRPAS i 


JSR 


X.GS i 


EQU 


^t 


LDA 


#0 ; 


STA 


DURCH i 


LDA 


MODE 1 


AND 


«M. PASCAL 


BNE 


X. CRRET ; 


JSR 


X. LF i 


EQU 


* 



; BACK UP CH 

i =>DONE 

i BACK UP TO PRIOR LINE 

i SET CH 

iNOH DO REV LINEFEED 



WHICH LANGUAGE? 



=>PASCAL- NO CLR EOL 
INPUT OR OUTPUT? 



=>OUTPUT. NO CLEARING 
CLEAR TO EOL 



BACK UP CH TO 

BEGINNING OF LINE 
ARE WE IN BASIC? 

=>PASCAL, AVOID AUTO L/F 
EXECUTE AUTO LF FOR BASIC 



80-Column Firmware Listing 
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CCOC: 60 
CCOD; 



CC2C 
CC2E 
CC30 
CG33 
CC33 
CC33 
CC34 
CC34 
CC34 
CC34 
CC34 
CC37 
CC39 
CC3C 
CC3E 
CC40 
CC40 
CC40 
CC40 
CC40 
CC43 
CC45 
CC45 
CC4e 
CC48 
CC49 
CC47 
CC49 
CC49 
CC49 
CC4C 
CC4E 
CC50 
CC52 
CC52 
CC52 
CC53 
CC52 
CC55 
CC57 
CC59 
CC59 
CC5C 
CC5E 
CC5F. 
CC5F: 
CC60 
CC61. 
CC62 
CC63 
CC&4 
CC65. 



212 




RTS 




213 




DO 





214 » 








215 * 




EXECUTE SYNC: 


216 » 








217 X 


SYN 


EQU 


* 


21B 




LDA 


RDVBLBAR 


219 




BPL 


X. SYN 


220 X 


SYN2 


LDA 


RDVBLBAR 


221 




BMI 


X- SYN2 


222 




RTS 




223 




FIN 





CCOD 








223 






FIN 




CCOD 








224 


» 








CCOD 








225 


« 


EXECUTE 


HOME: 




CCOD 








226 


« 








CCOD 






CCOD 


227 


X 


EM 


EQU 


* 


CCOD 


A5 


22 




228 






LDA 


WNDTOP 


CCOF 


SD 


FB 


05 


229 






STA 


OURCy 


CC12 


A9 


00 




230 






LDA 


#0 


CC14 


80 


7B 


05 


231 






STA 


OURCH 


CC17 


4C 


51 


CB 


232 






JMP 


BASCALC 


CCIA 








233 


* 








CCIA 








234 


* 


EXECUTE 


CLEAR 


LINE: 


CCIA 








235 


* 








CCIA 






CCIA 


236 


X 


SUB 


EQU 


« 


CCIA 


A4 


21 




237 






LDY 


WNDWDTH 


CCIC 


88 






238 






DEY 




CCID 






CCID 


239 


X 


SUB80 


EQU 


* 


CCID 


A9 


AC 




240 






LDA 


# ' 


CCIF 






CCIF 


241 


X 


SUBLP 


EQU 


■* 


CCIF 


20 


F2 


CE 


242 






JSR 


STDRCHAR 


CC22 


88 






243 






DEY 




CC23 


10 


FA 


CCIF 


244 






BPL 


X. SUBLP 


CC25 


60 






245 






RTS 





247 * EXECUTE FORWARD SPACE: 



CC26 
EE 7B 05 
AD 7B 05 
C5 21 

90 03 CC33 
20 EC CB 



CC33 256 X, FSRET 



AD FB 04 
09 04 
AO 7F 

C 
SD FB 04 
84 32 



EQU 


» 


INC 


OURCH 


LDA 


OURCH 


CMP 


WNDWDTH 


8CC 


X. FSRET 


JSR 


X. CR 


EQU 


^ 


RTS 





CC34 
CE FB 05 
30 07 CC40 
AD FB 05 
C5 22 
BO 05 CC45 



25S ■ 

259 ■ 

260 ■ 
261 



267 ■ 

268 ■ 



EXECUTE REVERSE LINEFEED: 

. US EQU * 

DEC OURCV 

BMI X.USl 

LDA OURCV 

CMP WNDTOP 

BCS X. US2 

PIN CV TO WINDOW TOP: 



CC40 
EE FB 05 
FO 03 CC48 

CC45 
20 51 CB 

CC4B 
60 



CC49 
AD FB 04 
29 FB 
AO FF 
DO 07 CC59 



270 X. USl EQU » 

271 INC OURCV 

272 BEQ X. USRET 

273 X. US2 EQU # 

274 JSR BASCALC 

275 X. USRET EQU » 

276 RTS 

277 * 

278 « EXECUTE "NORMAL VIDEO" 



i NO MORE ROM SPACE ! 



WAIT FDR VBL 
=>WAIT FDR VIDEO SCAN 
NOW WAIT FDR 
BLANKING TO BEGIN 



; STUFF CH 

.RETURN VIA BASCALC (UGH!) 



' i BLANKIE BLANK 
; STUFF THE BLANK 
: =>CLEAR THE LINE 



BUMP CH 

GET THE POSITION 

OFF THE RIGHT SIDE? 

=>N0, GOOD 

=>YES. WRAP AROUND 



; SACK UP CV 

i ->OFF TOP OF SCREEN 



; OFF TOP OF WINDOW? 

i =>N0, STILL IN WINDOW 



: PUT BACK WHERE IT WAS 
J IT GOES TO ALWAYS 



; RECOMPUTE BASE ADDR 



281 
282 
283 



- SO EQU * 

LDA MODE ; 

AND »255-M. VMODE 

LDY #255 

BNE STUFFINV ; 

EXECUTE "INVERSE VIDEO" 



SET MODE BIT 
i SET 'NORMAL' 



CC52 2SB 



297 
298 
299 
300 
301 
302 
303 
3© 4 



X. SI 


EQU 


* 






LDA 


MODE 


SET MODE BIT 




ORA 


#M. VMODE 


SET 'INVERSE' 




LDY 


#127 




STUFFINV 


EQU 


^ 






STA 


MODE 


SET MODE 




STY 


INVFLG 


STUFF FLAG TOO 




RTS 






CTLADL 


EQU 


# 






DFB 


>X, BELL-1 


BEL 




DF13 


>X. BS-l 


BS 




Df-B 





HT 




DFB 


>X. LF-I 


LF 




DFB 


>X. VT-1 


VT 




DFB 


>X. FF-1 


FF 




DFB 


:>X. CR-1 


CR 
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Monitor ROM Listings 



CC&6: 4S 






CC67; 51 






CCiS: 00 






CC69: 3a 






CC6A; 76 






CC6B:00 






CC6C; 00 






CC6D. BF 






CC6E; A9 






CC6F; A3 






CC70:00 






CC71:0C 






CC72; 19 






CC73: 00 






CC74;25 






CC75;47 






CC76: 00 






CC77: 33 






CC78: 






CC78: 




CC78 


CC78: CB 






CC79: CB 






CC7A: 00 






CC7B; CC 






CC7C: CD 






CC7D: CD 






CC7E:Ce 






CC7F; CC 






CCaO: CC 






CC81: 00 






CCa2: CD 






CCa3: CD 






CCa4: 00 






ccas: 00 






CC86; CD 






CC87: CC 






CCBS:CC 






CC89; 00 






CCBA: CC 






CC8B:CC 






CC8C: 00 






CC8D: CC 






CCSE; CD 






CCSF; 00 






CC90: CC 






CC91: 






CC91: 






CC91: 






CC91: 






CC91: 




CC91 


CC91: EE 


FB 


05 


CC94: AD 


FB 


05 


CC97; C5 


23 




CC99: BO 


03 


CC9E 


CC9B: 40 


20 


CD 


CC9E; 




CC9E 


CC9E; A4 


23 




CCAO; 88 






CCAl: 8C 


FB 


05 


CCA4: 






CCA4: 






CCA4: 






CCA4; 




CCA4 


CCA4- 8A 






CCA5; 48 






CCA6: A2 


01 




CCA8: DO 


04 


CCAE 


CCAA; 




CCAA 


CCAA: SA 






CCAB: 48 






CCAC: A2 


00 




CCAE: 






CCAE: 




CCAE 


CCAE; 2C 


IF 


CO 


CCBl; 10 


05 


CCS8 


CCB3: A5 


21 




CCB5: 48 






CCBi: 46 


21 




CCBa. 






CCB8: 




CCBS 


CCB8; 20 


Dl 


CC 


CCBB: 2C 


IF 


CO 


CCBE: 10 


51 


CDll 


CCCO; 






CCCO: 






CCCO: 






CCCO; 08 






CCCl: 78 






CCC2: AD 


55 


CO 


CCC5: 20 


Dl 


CC 


CCCB. AD 


54 


CO 


CCCB: 2B 







30S 


DFB 


>X 


SQ-1 


so 


306 


DFB 


>X 


SI-1 


SI 


307 


DFB 







DLE 


308 


DFB 


>x 


DC 1-1 


DCl 


309 


DFB 


>x 


DC 2-1 


DC2 


310 


DFB 







DC3 


311 


DFB 







DC4 


312 


DFB 


>x 


NAK~1 


NAK 


313 


DFB 


>SCR0LLDN-1 


SYN 


314 


DFB 


>SCRDLLUP-1 


ETB 


313 


DFB 







CAN 


316 


DFB 


>x 


EM-1 


EM 


317 


DFB 


>x 


SUB-1 


SUB 


318 


DFB 







ESC 


319 


DFB 


>x 


FS-1 


FS 


320 


DFB 


>x 


GS-1 


GS 


321 


DFB 







RS 


322 


DFB 


>x 


US-1 


US 


323 » 










324 CTLADH 


EQU 


« 






325 


DFB 


<x 


0ELL-1 


DEL 


326 


DFB 


<x 


BS-1 


BS 


327 


DFB 







HT 


328 


DFB 


<x 


LF-1 


LF 


329 


DFB 


<x 


VT-l 


VT 


330 


DFB 


<x 


FF-1 


FF 


331 


DFB 


<x 


CR-1 


CR 


332 


DFB 


<x 


30-1 


SO 


333 


DFB 


<x 


SI-1 


SI 


334 


DFB 







DLE 


335 


DFB 


<x 


DCl-1 


DCl 


336 


DFB 


<x 


DC2-1 


DC2 


337 


DFB 







DCS 


338 


DFB 







DC4 


339 


DFS 


<x 


NAK-1 


NAK 


340 


DFB 


<SCR0LLDN-1 


SYN 


341 


DFB 


<SCR0LLUP-1 


ETB 


342 


DFB 







CAN 


343 


DFB 


-^X 


EM-1 


EM 


344 


DFB 


<X 


SUB-1 


SUB 


345 


DFB 







ESC 


346 


DFB 


<X 


FS-1 


FS 


347 


DFB 


<X 


GS-1 


GS 


348 


DFB 







RS 


349 


DFB 


<X 


US-1 


US 



INCLUDE SUBS2 



3 » EXECUTE LINEFEED: 



EQU 


■* 




INC 


DURCV 


BUMP CV 


LDA 


OURCV 


SEE IF OFF BOTTOM 


CMP 


WNDBTM 


OFF THE END? 


BCS 


X. LF2 


=>YES 


JMP 


X. LFRET 


=>N0, DONE 


EQU 


* 




LDY 


WNDBTM 


SET TO 


DEY 






STY 


OURCV 


THE BOTTOM 



SCROLL THE SCREEN: 



18 SCRDLLUP 



23 SCROLLDN 



28 SCRaLLl 



EQU 
TXA 
PHA 
LDX 
BNE 
EQU 
TXA 
PHA 
LDX 



BPL 
LDA 
PHA 
LSR 



RD80VID 
SCR0LL2 
WNDWDTH 

WNDWDTH 



i SAVE X 

; DIRECTION=UP 

; SAVE X 

; DlRECTION=DaWN 



WHICH MODE? 

=>40. DO WITH EXISTING WIDTH 
TEMPORARILY SAVE 
THE WIDTH AND 
DIVIDE IT BY 2 



35 SCRaLL2 EQU * 

36 JSR SCRLSUE 

37 BIT RDBOVID 

38 BPL X. SCRLRET 

39 * 

40 * FOR 80, DO THE OTHER PAGE. 

41 * 

42 PHP 

43 SEI 

44 LDA TXTPAGE2 

45 JSR SCRLSUB 

46 LDA TXTPAGEl 

47 PLP 



SCROLL 40 COLS 
ARE WE IN aO-MODE? 
=>N0, DONE 



ENSURE IRQ INHIBITED 

WHILE TXTPAGE2 MAPPED IN 
SET PAGES 
SCROLL PAGE 2 
RESTORE PAGEl 
RESTORE IRQ STATE NOW 



80-Column Firmware Listing 
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CCCC; 68 






4B 






PLA 




CCCD: 85 


21 




49 






STA 


WNDWDTH 


CCCF:DO 


40 


CDll 


50 






BNE 


X. SCRLRET ; 


CCDl: 






51 


# 








CCDl: 






52 


ft 


40-CDLUMN WINDOWED SCROLL: 


CCDl: 






53 


• 








CCDl: 




CCDl 


54 


SCRLSUB 


EQU 


* 


CCDl: BC 


F9 


CF 


35 






LDY 


WNDTAB. X ; 


CCD4: B9 


00 


00 


56 






LDA 


0, Y 


CCD7: EO 


01 




57 






CPX 


#1 i 


CCD9:B0 


02 


CCDD 


58 






DCS 


MSCRLO i 


CCDB;E9 


00 




59 






SBC 


ttO i 


CCDD: 




CCDD 


60 


MSCRLO 


EQU 


« 


CCDD: 48 






61 






PHA 




CCDE: 20 


54 


CB 


62 






JSR 


BASCALCZ 


CCEl: A5 


28 




63 


MSCRLl 


LDA 


BASL 


CCE3:85 


2A 




64 






STA 


BAS2L 


CCE5: A5 


29 




65 






LDA 


BASH 


CCE7: 85 


2B 




66 






STA 


GAS2H 


CCE9: A4 


21 




67 






LDY 


WNDWDTH 


CCEB; B8 






68 






DEY 




CCeC; 68 






69 






PLA 




CCED: 18 






70 






CLC 




CCEE: 7D 


FO 


CF 


71 






ADC 


PLUSMINUSl, X 


CCFl: D5 


22 




72 






CMP 


WNDTOP, X i 


CCF3: FO 


OD 


CD02 


73 






BEG 


MSCRLRET 


CCF5: 48 






74 






PHA 




CCFfe: 20 


54 


C8 


75 






JSR 


BASCALCZ 


CCF9:B1 


28 




76 


MSCRL2 


LDA 


(BASL). Y 


CCFB: 91 


2A 




77 






STA 


(BASaL). Y 


CCFD: 88 






78 






DfiV 




CCFE; iO 


F9 


CCF9 


79 






BPL 


M5CRL2 


CDOO: 30 


OF 


CCEl 


SO 






SMI 


MSCRLl 


CD02: 






81 


« 








CD02: 




CD02 


82 


riSCRLRET 


EQU 


« 


CD02: EO 


00 




83 






CPX 


#0 ; 


CD04: DO 


OA 


CDIO 


84 






BNF 


MSCRLRTS i 


CD06: 20 


54 


CB 


85 






JSR 


BASCALCZ 


CD09: 




CD09 


86 


DNEMORE 


EQU 


» 


CD09: Bl 


2B 




87 






LDA 


(BASL)- Y 


CDOB: 91 


2A 




88 






STA 


(BAS2L), Y 


CDOD: SS 






89 






DEY 




CODE: 10 


F9 


CD09 


90 






BPL 


DNEMORE 


CDIO: 




CDIO 


91 


MSCRLRTS 


EQU 


« 


CD10:60 






92 






RTS 




CDll; 






93 


» 








CDll: 






94 


« 


DONE WITH THE 


SCROLLING JAZZ: 


CDU: 






95 


# 








CDll: 




CDll 


96 


X 


SCRLRET 


EQU 


* 


CDU:B4 


22 




97 






LDY 


WNDTOP, X i 


CD13: SA 






98 






TXA 




CD14: FO 


01 


CD17 


99 






BEQ 


X.SCRLRET2 i 


CD16: 88 






100 






DEY 




CD17: 




CD17 


101 


X 


SCRLRET2 EQU 


« 


CD17: 98 






102 






TYA 




CD18:20 


54 


CB 


103 






JSR 


BASCALCZ ; 


CDlB:6a 






104 






PLA 




CDIC: AA 






105 






TAX 




CD1D:20 


lA 


CC 


106 






JSR 


X. BUB -. 


CD20: 






107 


» 








CD20: 




CD20 


108 


X 


LFRET 


EQU 


« 


CD20: 4C 


51 


CB 


109 






JMP 


BASCALC ; 


CD23: 






110 


« 








CD23: 






ill 


« 


EXECUTE 


CLR TO 


EOS: 


CD23: 






112 


» 








CD23: 




CD23 


113 


X 


VT 


EQU 


« 


CD23: 20 


48 


CD 


114 






JSR 


X. GS ; 


CD26: AD 


FB 


OS 


115 






LDA 


QURCV i 


CD29: 48 






116 






PHA 




CD2A: 10 


06 


CD32 


117 






BPL 


X. VTNEXT i 


CD2C: 




CD2C 


118 


X 


VILDOP 


EQU 


* 


CD2C: 20 


51 


C8 


119 






JSR 


BASCALC i 


CD2F: 20 


lA 


CC 


120 






JSR 


X. SUB i 


CD32: 




CD32 


121 


X 


VTNEXT 


EQU 


« 


CD32: EE 


FB 


03 


122 






INC 


ouRcy i 


CD35: AD 


FB 


05 


123 






LDA 


OURCV 


CD38: C5 


23 




124 






CMP 


WNDBTK : 


CD3A: 90 


FO 


CD2C 


125 






BCC 


X. VTLDOP i 


CD3C: 6B 






126 






PLA 


i 


CD3D: 80 


FB 


05 


127 






STA 


OURCV ; 


CD40: 10 


DE 


CD20 


128 






BPL 


X, LFRET i 


CD4S: 






129 


* 








CD42: 






130 


tt 


EXECUTE 


CLEAR: 




CD42: 






131 


* 








CD42: 




CD42 


132 


X 


FF 


EQU 


w 


0042: 20 


OD 


CC 


133 






JSR 


X.EM i 


CD45: 4C 


23 


CD 


134 






JMP 


X.VT I 


0048: 






135 


« 








0048: 






136 


* 


EXECUTE 


CLEAR 


TD EOL: 


CD48: 






137 


» 








C048: 




0048 


138 


X 


GS 


EQU 


* 



=>DONE 5CRDLLB0 (ALWAYS TAKEN) 



GET WINDOW TOF/BDT 

SCROLLING UP? 

=>VES. NO PROBLEM 

-1 IF DOWN (SRC=BTM-1) 



SCROLLING DOWN? 
=>ND 



CLEAR TOP OR BOTTOM LINE 
IF GETTING TOP. 
DON'T DECREMENT! 



TEMP CV SETUP 

COMPUTE BASE OF LINE TO CLEAR 

RESTORE 

X 
CLEAR BOTTOM LINE 



RETURN VIA BASCALC ( USH I 



CLEAR TO EOL 
SAVE CV 



DO NEXT LINE (ALWAYS TAKEN) 



BASCALC IT 
CLEAR LINE 



OFF SCREEN? 
=>N0. I^EP GOING 
RESTORE 

CV 
RETURN VIA SIMILAR CODE 



HOME THE CURSOR 

RETURN VIA CLREOS (UGH!) 
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CD4B: AC 7B 


05 


139 


LDY 


OUR CM 


1 GET CH 


CD4B: 4C 54 


CD 


140 


JMP 


X. GS2 


; CHECK FDR END FIRST! 


CD4E 


CD4E 


141 X.GSEOLZ 


EQU 


» 


i FER U HACKERS 


CD4E A*? AO 




142 


LDA 


«' 




CDSO 20 F2 


CE 


143 


JSR 


STORCHAR 


STUFF IT 


CD53 CB 




144 


INY 






CD54 


CD54 


145 X GS2 


EQU 


« 




CD54 C4 21 




146 


CPY 


WNDWDTH 


STOP SOMETIME 


CD56: 90 F6 


CD4E 


147 


BCC 


X. GSEDLZ 


YABL DO MORE 


CDSa: 60 




148 


RT5 






CD59. 




149 * 








CD59 




150 * EXECUTE 


'40C0L 


MODE ' : 




CD59 




151 » 








CD59 


CD59 


1 52 X , DC 1 


EQU 


* 




CD59 A9 00 




153 


LDA 


#0 


ASSUME TEXTnODE 


CD5B 85 20 




154 


STA 


WNDLFT 




CD5D:2C lA 


CO 


155 


BIT 


RDTEXT 


ARE WE IN TEXT MODE? 


CD60. 30 02 


CD64 


156 


0MI 


X. DCIB 


=>YES 


CD62: A9 14 




157 


LDA 


#20 


IF GR, SET SPLITSCREEN 


CD64: 


CD64 


158 X.DCIB 


EQU 


« 




CD64:S5 22 




159 


BTA 


WNDTOP 




CD66: A9 18 




160 


LDA 


#24 




CD68: 85 23 




161 


STA 


WNDBTM 




CD6A: A9 28 




162 


LDA 


tt40 




CD6C:85 21 




163 


STA 


WNDWDTH 




CD6E; 2C IF 


CO 


164 


BIT 


RD80VID 


WERE WE IN BO-MODE^ 


CD71: 10 03 


CD76 


165 


BPL 


X. DCIRTS 


=>Na, NO CVT NEEDED 


CD73: 20 DB 


CD 


166 


JSR 


SCRNa4 


CVT 80 — >40 


CD76 


CD76 


167 X, DCIRTS 


EQU 


4 




CD76: 60 




168 


RTS 






CD77. 




169 «• 








CD77: 




170 » EXECUTE 


'80CDL 


MODE': 




CD77: 




171 * 








CD77: 


CD77 


172 X.DC2 


EQU 


■N- 




CD77:20 24 


CB 


173 


JSR 


TESTCARD 


IS CARD THERE? 


CD7A: DO IE 


CD9A 


174 


BNE 


X. DC2RET 


=>NaPE. FORGET IT 


CD7C:20 9B 


CD 


175 


JBR 


FULLBO 


SET FULL WINDOW 


CD7F:2C lA 


CO 


176 


BIT 


RDTEXT 


ARE WE IN TEXT MODE? 


CD82: 30 04 


CDSa 


177 


BMI 


X. DC2B 


=>YES 


CD84;A9 14 




178 


LDA 


#20 


IF GR, SET SPLITSCREEN 


CDa6:S5 22 




179 


STA 


WNDTDP 




CD88: 


CDBa 


180 X. DC2B 


EQU 


« 




CD88:2C 18 


CO 


181 


BIT 


RD80COL 


REMEMBER PRIOR MODE 


C 096:30 OD 


CD9A 


182 


BMI 


X. DC2RET 


=>ND CVT NEEDED IF WAS 80 


CD8D:4C 32 


CE 


183 


JMP 


SCRN4B 


RET VIA CONVERT 40— >80 


CD90: 




1B4 » 








CD90; 




185 * EXECUTE 


'QUIT' 






CD90: 




186 « 








CD90: 


CD90 


187 X.NAK 


EQU 


« 




CD90:AD FB 


04 


IBS 


LDA 


MODE 


ONLY VALID IN BASIC 


CD93:29 20 




1S9 


AND 


#M, PASCAL 




CD95:D0 03 


CD9A 


190 


BNE 


X. NAKRET 


IGNORE IF PASCAL 


CD97: 20 AA 


CD 


191 


JSR 


QUIT 


GET SETUP TO QUIT 


CD9A: 


CD9A 


192 X. NAKRET 


EQU 


« 




CD9A: 


CD9A 


193 X.DC2RET 


EQU 


» 




CD9A: 60 




194 


RTS 




DDNEi CALLER WON'T RETURN 


CD9B: 
CD9B: 












196 » NAME 


FULLSO 




CD9B: 




197 * FUNCTION 


BET FULL 80CGL WINDOW 


CD9B; 




198 * INPUT 


NONE 






CD9B: 




199 » OUTPUT 


WINDOW PARAMETERS 




CD9B: 




200 » VOLATILE 


AC 


















CD9B: 




202 » 








CD9B: 


CD9B 


203 FULLBO 


EQU 


« 




CD9B:A9 00 




204 


LDA 


#0 




CD9D:85 22 




203 


STA 


WNDTOP 




CD9F:S5 20 




206 


STA 


WNDLFT 




CDA1:A9 50 




207 


LDA 


#80 




CDA3:a5 21 




208 


STA 


WNDWDTH 




CDA5:A9 18 




209 


LDA 


#24 




CDA7;85 23 




210 


STA 


WNDBTM 




CDA9: 60 




211 


RTS 






CDAA: 












cdaa! 


213 « NAME 


QUIT 






CDAA: 




214 * FUWTION 


SETUP 


TO QUIT THE CARD 


CDAA: 




215 * INPUT 


NOTHING 




CDAA: 




216 • OUTPUT 


NOTHING 




CDAA: 




217 » VOLATILE 


ALL REGS 




CDAA: 




21B » CALLS 


X. FF, 


FULLSO. BASCALC 




CDAA: 




219 « 


SETKBD, SETVID 




CDAA: 




220 --— — - 








CDAA: 


221 » 








CDAA: 


CDAA 


222 QUIT 


EQU 


* 




CDAA:A9 00 




223 


LDA 


#0 


SET FULL 40-C0L WINDOW 


CDACiSS 22 




224 


STA 


WNDTOP 




CDAE:e3 20 




225 


STA 


WNDLFT 




CDB0:A9 IB 




226 


LDA 


•24 




CDB2:a9 S3 




227 


STA 


WNDBTM- 




CDB4:A9 26 




228 


LDA 


#40 




CDB6:a9 21 




229 


STA 


WNDWDTH 
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CDBB: 
COBB: 
CDBD: 
COCO: 
CDCO: 
CDCO: 
CDC2: 
CDC9: 
CDCB: 
CDCA: 
CDCD; 
CDDO: 
CDD2: 
C0D5: 
CDDB: 
CDDB: 
CDDB: 
CDDB: 
CDDB: 
CDDB: 
CDDB: 
CDDB: 
CDDB: 
CDDB: 
CDDB: 
CDDB: 
CODE: 
CDDF: 
CDE2: 
CDE3; 
CDE3: 
CDE5; 
CDE7: 
CDEA: 
CDEC: 
CDEF: 
CDF2: 
CDF4: 
CDF6: 
CDF9: 
CDFi3: 
CDFD: 
CDFF: 
CEOl: 
CEOl: 
CE04: 
CE07: 
CEOA: 
CEOA: 
CEOA: 
CEOB: 
CEOC: 
CEOE: 
CEIO: 
CE13: 
CE16r 
CE19: 
CEIC: 
CEIE: 
CE20: 
CE21: 
CE22: 
CE22: 
CE24: 
CE26: 
CE27: 
CE2B: 
CE2A: 
CE2C: 
CE2F: 
CE31: 
CE32: 
CE32: 
Ce32i 
CE32: 
CE32: 
CESa: 
CE32: 
CE321 
CE32: 
CE32: 
CE32: 
CE35: 
CE36; 
CE39: 
CE3A: 
CE3A: 
CE3C: 
CE3E: 
CE40: 
CE43: 
CE46: 



2C IF CO 

10 03 CDCO 

20 DB CD 



A9 17 
8D FB 05 
20 51 CB 
A9 00 
8D 7B 05 
8D OE CO 
A9 FF 
8D FB 04 
20 93 FE 
4C B9 FE 



48 

A9 17 

85 2A 

80 01 CO 

A5 2A 

20 54 CB 

20 OA CE 

C6 2A 

30 OB CEOl 

2C lA CO 

30 EF CDEA 

A5 2A 

C? 14 

DO E9 



8D 00 CO 
BD OC CO 
4C 58 CE 



oe 



7S 

AO 28 

84 2B 

2C 54 CO 

20 22 CE 

2C 55 CO 

20 22 CE 

A4 2B 

DO F3 CE13 

28 



Ch 2B 
A5 2Q 



A4 2B 
2C 54 CO 

91 25 



AD FB 05 

4B 

AD 7B 05 

48 

A9 17 

85 2A 

A5 2A 

20 54 CB 

20 63 CE 

C6 2A 



NAME 

FUNCTION: 
INPUT 
OUTPUT 

VOLATILE: 
NOTE 



CDEA 
CEOl 



230 
S31 
232 

233 H 

234 < 
235 
236 
237 
238 
239 
240 
241 
242 
243 
244 

245 ' 

246 ' 

247 ■ 

248 ' 

249 ■ 

250 ■ 

251 - 

252 - 

253 ■ 

254 ! 
255 
256 
257 
258 
259 ■ 
260 
261 
262 
263 ! 
264 
265 
266 
267 
26B 
269 
270 
271 
272 
273 i 
274 
275 
276 

277 5 

278 ( 
279 
260 



284 ATEFQRl 



BIT RD80VID 
BPL QUITE 
JSR 5CRN84 



EdU 
LDA 
STA 
JSR 
LDA 
STA 
STA 
LDA 
STA 
JSR 
JMP 



«23 

OORCV 

BASCALC 

«0 

OURCH 

CLRALTCHAR 

»»FF 

MODE 

SETVID 

SETKBD 



(WHAT WIDTH? 

i">NO CVT NEEDED IF 40 

I CONVERT 40 — >aO 



i VTAB TO THE 
i BOTTOM LINE 

; AND PLACE CURSOR 

i AT LEFT SIDE 

J LCABE CHARS OFF 

J DESTROY THE 

i MODE BYTE 

;PRtt0 

J RETURN VIA IN»0 (UOH!> 



SCRN84 

CONVERT BOVID — >40VID 

NONE 

NONE 

ALL REGISTERS 

USES 'BAS2H/L' AS TEMPS 



288 
289 



2?5 
296 



EQU 
LDA 
PHA 
LDA 
PHA 

LDA 
STA 
STA 
LDA 
JSR 
JSR 
DEC 
Bfll 
BIT 
BMI 
LDA 
CMP 
BCS 
EQU 
STA 
STA 
JMP 

EQU 
PHP 
SEI 
LDY 
STY 
BIT 
JSR 
BIT 
JSR 
LDY 
BNE 
PLP 
RTS 

DEC 
LDA 
LSR 
TAY 
LDA 
LDY 



QURCV 
aURCH 



#23 

BAS2L 

SETSOCQL 

BAS2L 

BASCALC Z 

ATEFOR 

BAS2L 

SCR40RET 

RDTEXT 

SCR40 

BAS2L 

W20 

SCR40 

» 

CLRSOCOL 

CLRBOVID 

SCRNRET 



#40 

BAS2H 

TXTPAGEl 

GET84 

TXTPAGE2 

GET84 

BAS2H 

ATEFOR 1 



i SAVE CURRENT 
i SETTINGS 



i USE AS A TEMP 



i BEGIN AT BOTTOM AND WORK UP 
i DO THIS LINE 

i =>DONE CHIT TOP) 

iARE WE IN MIDEKMODE? 

i=>NO. DO ENTIRE SCREEN 

i IF SO. ONLY DO BOTTOM 

; FOUR (4) LINES DF WINDOW 



i RETURN VIA SIMILAR CODE 



; DONE? 

; =>NO, DD WHOLE LINE 

i RESTORE IRQ NOW 



8AS2H 
BAS2H 



(BASL), Y 
BAS2H 
TXTPAGEl 
(BASL), Y 



« NAME 

* FUNCTION. 

* INPUT 

* OUTPUT 

* VOLATILE: 

* NOTE 



300 
301 
302 
303 
304 
305 
306 
307 
308 
309 
310 



313 

314 

315 * 

316 

317 

318 SCR80 

319 

320 

321 



SCRN48 

CONVERT 40VID — >80VID 

NONE 

NONE 

ALL REGISTERS 

USE3 'BA52H/L' AS TEMPS 



EQU » 

LDA OURCV 

PHA 

LDA OURCH 

PHA 

LDA #23 

STA BAS2L 

LDA BAS2L 

JSR QASCALCZ 

JSR FORATE 

DEC BAS2L 



i SAVE CV 
-, AND CH 



i USE AS A TEMP 



i BEGIN AT DOTTDM AND WORK UP 
; DO THIS LINE 



Monitor ROM Listings 



CE48:30 OB 
CE4A:2C lA ( 
CE4D:30 EF 
CE4F:A5 2A 

CE51:C9 14 
CE93:BO E9 

CESS: 
CESS: 

CESS: 80 OD i 
CESS: 
CES8: 68 
CES9: 8D 7B i 
CE5C:6B 
CE3D: BD FB i 
CE60: 4C 51 < 
CE63: 
CE63; 
CE63: 
CE63: 08 
CE64: 78 
CE65: AO 00 
CE67: 84 2B 
CE69: 8C 01 ( 
CE6C:2C 54 ( 
CE6F:B1 28 
CE71 2C 55 ( 
CE74 20 A3 ( 
CE77: 2C 54 ( 
CE7A:B1 28 
CE7C: 20 A3 < 
CE7F; CO 28 
CE81: 90 EC 
CE83: 

CES3:20 91 ( 
CE86: 2C 55 ( 
CE89; 20 91 I 
CEeC:2C S4 ( 
CE8F: 28 
CE90; 60 
CE91; 
CE91: 

CE91;A0 14 
CE93: A9 AO 
CE95: 24 32 
CE97: 30 02 
CE99: 29 7F 
CE9B: 

CE9B: 91 28 
CE9D:Ca 
CE9E:C0 28 
CEAO: DO F9 
CEA2: 60 
CEA3: 
CEA3: 48 
CEA4: 98 
CEA5: 4A 
CEA6: AS 
CEA7: 68 
CEAB:91 2B 
CEAA:E6 2B 
CEAC:A4 2B 
CEAE:60 
CEAF: 
CEAF: 
CEAF: 
CEAF: 
CEAF: 
CEAF: 
CEAF: 
CEAF: 
CEAF; 
CEAF: 
CEAF: 

CEAF:8D 7B ( 
CEB2:8S 24 
CEB4: 8D 7B C 
CEB7: 2C IF C 
CEBA; 10 ID 
CEBC: 
CEDC: 
CEBC: 
CESC: 
CEDC; 

CEBC: A9 00 
CEBE: 85 24 
CEC0:8D 7B C 
CEC3: A5 21 
CEC5:38 
CEC6; ED 7B C 
CEC<?:C9 OB 
CECB: BO OC 
CECD;a3 24 



CESS 

CE3E 

CE3E 

CESS 



CE9B 
CE9B 



322 
323 
324 
32S 
326 
327 
328 
329 
330 
331 
332 
333 
334 
335 
336 
337 
338 
339 
340 
341 
342 
343 
344 
345 
346 
347 
348 
349 
350 
351 
352 
353 
354 
355 
356 
357 
358 
359 
360 
361 
362 
363 
364 
365 
366 
367 
368 
369 
370 
371 
372 
373 
374 
375 
376 
377 
37B 
379 
3B0 
3B1 
3S2 
3B3 
14 



8CR80RET 

SCRNRET 



BMI 
BIT 
BMI 
LDA 
CMP 
DCS 

EOU 

STA 
EQU 
PLA 
STA 
PLA 
STA 
JMP 



EQU 
PHP 
SEI 
LDY 
STY 
STY 
BIT 
LDA 
BIT 
JSR 
BIT 
LDA 
JSR 
CPY 
BCC 

JSR 
BIT 
JSR 
BIT 
PLP 
RTS 

EQU 
LDY 
LDA 
BIT 
BMI 
AND 
EQU 
STA 
I NY 
CPY 
BNE 
RTS 



SCRSORET 

RDTEXT 

SCR80 

BA82L 

»20 

SCRBO 



OURCV 
BASCALC 



#0 

BAS2H 

SETeOCOL 

TXTPACEl 

(BASL). Y 

TXTPA0E2 

0048 

TXTPAOEl 

(BASL). Y 

D048 

#40 

FORATEl 

CLRHALF 
TXTPA0E2 
CLRHALF 
TXTPACEl 



INVFLC 

CLRHALF2 

«S7F 



tt40 

CLRHALF2 



PHA 

TYA 

LSR A 

TAY 

PLA 

STA (BASL). Y 

INC BAS2H 

LDY BAS2H 

RTS 

INCLUDE SUBS3 



i'>DONE <HIT TOP) 

(ARE UE IN MIXEDMODE? 

iNO. DO FULL SCREEN 

J IF SO. ONLY DO BOTTOM 

i FOUR (4) LINES OF WINDOW 



I DISPLAY IN 80-MODE 
I USED BY 8CRN84 
i RESTORE 
I CH AND 



CV 



(RETURN VIA BASCALC (UOH! ) 



i DON'T ALLOW IRQ WHILE 
I SCREENKGLE8 ARE WRONG 



J CLEAR RIGHT HALF 
i OF BOTH PAGES 



iOK TO ALLOW IRQ NOW 



i WHICH MODE? 
i =>NORMAL 
i INVERSE 

i STUFF THE BLANK 



* NAME 


SETCH 


* FUNCTION 


SET OURCH AND CH 


« INPUT 


AC=CH VALUE 


* OUTPUT 


OURCH, CH nOD 40 


* VOLATILE 


NOTHING 


* CALLS 


NOTHING 



11 SETCH 



EQU 
STA 
STA 
STA 
BIT 
BPL 



OLDCH 

RDBOVID 

SETCHRTS 



; STUFF OURCH 

i STUFF IN CA^ WE'RE 40 MODE 



; IN BO-MODE? 
i =>N0, DONE 



IF WE'RE NEAR THE END OF OUR 
SOCOL LINE, P10VE CH UP. IF NOT, 
LEAVE CH PINNED AT ZERO. , . 



LDA 


#0 


STA 


CH 


STA 


OLDCH 


LDA 


WNDWDTH 


SEC 




SBC 


OURCH 


CMP 


#B 


BCS 


SETCHRTS 


STA 


CH 



iPIN CH AT ZERO 

; REMEMBER THE SETTING 
i CHECK IF NEAR THE END 

i GET AB5 CH 

i NEAR THE END? 

i =>NGPE 

i YES, MOVE CH UP NEAR RIGHT 



80-Column Firmware Listing 
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CECF 

CEDl 

CED2. 

CED4: 

CED6 

CED9. 

CED9 

CED9: 

CEDC: 

CEDD. 

CEDD: 

CEDD: 

CEDD 

CEDD 

CEDD 

CEDD: 

CEDD 

CEDD 

CEDD 

CEDD 

CEDE 

CEDF 

CEEO 

CEE3 

CEE6 

CEES 

CEEB 

CEEE 

CEEF 

CEFO. 

CEFl 

CEF2 

CEF2. 

CEF9. 

CEF2' 

CEF2. 

CEF2: 

CEF2: 

CEFa: 

CEF2. 

CEFa: 

CEF2: 

CEF2 

CEF3 

CEF5 

CEF7 

CEF9 

CEF9 

CEFC 

CEFF 

CFOO 

CFOl 

CFOl 

CFOl 

CFOl 

CFOl 

CFOl 

CFOl 

CFOl. 

CFOl 

CFOl 

CFOl: 

CF02 

CF05: 

CF06 

CF06 

CF06 

CF06 

CF06 

CF06 

CF06 

CP06 

eF06 

CF06 

CF06 

CF06 

CF06 

CF06 

CF08. 

CF09 

CF09 

CFOC 

CFOE' 

CFOE: 

CFOE: 

CFOE 

CFIO 

CFll 

CF12 

CF14 

CF14 



BD 7B 04 



AD 7B 05 



37 SETCHRTS 



LDA 
SEC 
SBC 
STA 
STA 

EQU 
LDA 
RTS 



i BASIC WILL SEE THAT NOW 
i REMEMBER THE SETTING 



i RESTORE AC 







41 


^ 


NAME 


INVERT 










42 


■» 


FUNCTION 


INVERT CHAR AT 


CH/CV 






43 


* 


INPUT 


NOTHING 










44 


* 


OUTPUT 


CHAR 


AT CH/CV INVERTED 






45 


« 


VOLATILE 


NOTHING 










46 


# 


CALLS 


PICK, 


STORCHAR 










47 
































48 


* 














CEDD 


49 


INVERT 


EQU 


# 










50 






PHA 






SAVE AC 






51 






TYA 






AND V 






52 






PHA 








7B 


05 


53 






LDY 


OURCH 




GET CH 


01 


CF 


54 






J3R 


PICK 




GET CHARACTER 


80 




55 






EOR 


#»S0 




FLIP INVERSE /NORMAL 


00 


CF 


56 






BIT 


SEV 




PUT DIRECTLY BACK 


06 


CF 


57 
5B 
S9 
60 
61 
62 






JSR 
PLA 
TAY 

RTS 


SCREENIT 




ONTO SCREEN 
RESTORE Y 
AND AC 




















63 


» 


NAME 


STORCHAR 










64 


■it 


FUNCTION 


STORE 


A CHAR ON 


SCREEN 






65 


« 


INPUT 


AC^^CHAR 










66 


» 




Y-CH 


POSITION 










67 


a 


OUTPUT 


CHAR 


DN SCREEN 










68 


«■ 


VOLATILE 


NOTHING 










69 


* 


CALLS 


SCREENIT 










70 
71 


















* 














CEF2 


72 


STORCHAR 


EQU 


# 










73 






PHA 






SAVE AC 


32 




74 






BIT 


INVFLG 




NORMAL OR INVERSE? 


02 


CEF7 


75 






BhI 


STOP 2 




=>NORMAL 


80 




76 






EOR 


#SB0 




INVERSE 




CEF9 


77 


ST0R2 


EQU 


* 






00 


CF 


78 






BIT 


SEV 




V SET FOR STORE 


06 


CF 


79 
SO 






JSR 
PLA 


SCREENIT 




=>DD IT! 
RESTORE AC 






81 


SEV 


RTS 












82 
83 


















# 


NAME 


PICK 












84 


# 


FUNCTION 


GET A 


CHAR FROM 


SCREEN 






SS 


* 


INPUT 


Y=CH 


POSITION 










86 


«■ 


OUTPUT 


AC=-CHARACTER 










87 


* 


VOLATILE 


NOTHING 










88 


« 


CALLS 


SCREENIT 










89 
90 


















* 














CFOl 


91 


PICP^ 


EQU 


# 










92 






CLV 






V CLEAR FOR PICK 


06 


CF 


93 
94 
95 






JSR 
RTS 


SCREENIT 




DO IT! 




















96 


* 


NAME 


SCREENIT 










97 


« 


FUNCTION 


STORE 


OR PICK CHAR 








9B 


* 


INPUT 


V CLR 


FOR PICK 










99 


■» 




V SET 


FOR STORE 










100 


* 




AC=CHAR FOR STORE 








101 


■* 




Y=CH 


POSITION 










102 


* 


OUTPUT 


AC=CHAR (PICK) 










103 


« 


VOLATILE 


NOTHING 










104 


* 


CALLS 


NOTHING 







IF CO 

32 CF40 



70 16 CFSA 



106 
107 
lOS 
109 
110 
111 
112 
113 
114 
115 
116 
117 
118 
119 
120 
121 



CREENIT EQU * 

STY YSAVl i SAVE Y 

PHA i SAVE CHARACTER IF STORING 

AVOID CHANGING VFLAG VIA BIT! 

LDA RD80VID (WHAT DISPLAY MODE? 
BPL SCRN40 i=>40-C0L MODE 



* BO-CQLUMN MODE: 



LDA YSAVl 

LSR A 

TAY 

BVS ST0R80 



GET CURSOR HOR I Z 
DIVIDE BY TWO FDR PAGE 
CH TO YREG 
=>GONNA STORE THE CHAR 



* BO-COL PICK: 
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CF14. 
CF14 
CF15 
CF16 
CF19 
CFIB. 
CFIE: 
CFIE: 
CF20: 
CF21: 
CF24. 
CF25: 
CF26. 
CF27 
CF2S, 
CF2A: 
CF2A. 
CF2A: 
CF2B: 
CF2C: 
CF2D: 
CF2E: 
CF2F: 
CF32: 
CF34: 
CF37: 
CF37: 
CF3a: 
CF3A; 
CF3D: 
CF3E: 
CF40: 
CF40: 
CF40: 
CF40: 
CF40: 
CF42: 
CF44: 
CF45: 
CF47: 
CF48: 
CF4A; 
CF4A: 
CF4A: 
CF4B: 
CF4C: 
CF4E: 
CF4E; 
CF4E: 
CF4F: 
CF51: 
CF52: 
CF52; 
CF52: 
CF52: 
CF52: 
CF52: 
CF52: 
CF52: 
CF52: 
CF52: 
CFS2; 
CF53: 
CF54; 
CF53: 
CF58: 
CF5B: 
CF5E: 
CF60: 
CF62; 
CF65: 
CF65: 
CF65: 
CF65: 
CF65: 
CF65: 
CF65: 
CF65: 
CF65; 
CF65: 
CF65i 
CF66: 
CF67: 
CFiS: 
CF6B: 
CF6E: 
CF6E: 
CF71: 
CF74: 
CF75: 
CF76: 



OB 

78 

AD 55 CO 

90 03 CFIE 

AD 54 CO 

CFIE 
Dl 28 

Aa 

AD 54 CO 



A4 IF 
70 06 



98 

48 

AC 78 05 

20 01 OF 

SD 7B 06 

29 80 

49 AB 

4C "6E CF 



AC 7B 05 
AD 78 06 



2C 00 CF 
20 06 CF 



122 

123 

124 

125 

126 

127 

128 1 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 I 

139 

140 

141 



78 
48 
AD 55 CO 

90 03 CF37 
AD 54 CO 

CF37 
68 

91 28 

AD 54 CO 



145 
146 
147 ; 
148 

149 

150 

151 

152 

153 

154 

155 

156 : 

157 

158 

159 

160 

161 

162 

163 

164 : 

165 

166 

167 

168 ■ 

169 1 
170 
171 
172 

173 ■ 

174 ■ 
175 

176 ■ 

177 ■ 

178 : 

179 : 



PHP 




SEJ 




LDA 


TXTPAGE2 ; 


BCC 


SCRN2 i 


LDA 


TXTPAGEl i 


EQU 


■* 


LDA 


CBASD.Y i 


TAY 




LDA 


TXTPAGEl ; 


PLP 




PLA 




TYA 




PHA 




BVC 


STPKEXIT 


EQU 


« 


PLA 




PHA 


; 


PHP 




SET 




PHA 




LDA 


TXTPAGE2 i 


BCC 


SCRN3 ; 


LDA 


TXTPAGEl 


EQU 


« 


PLA 




STA 


(BASL),Y ; 


LDA 


TXTPAGEl 


PLP 




BVS 


STPKEXIT ; 



40-COLUMN MODE: 

CRN40 EQU 
LDY 
BVS 

PLA 
LDA 
PHA 
BVC 

TDR40 EQU 
PLA 
PHA 
STA 

rpKEXIT EQU 
PLA 
LDY 
RTS 



YSAVl 
STaR40 



(BASL), Y 
STPKEXIT 



LOCK INTERRUPTS WHILE 

SCREENHDLES ARE WRONG 
ASSUME PAGE 2 (EVENS) 
=>IT IS 
ODDS GO TO PAGEl 

PICK THE CHARACTER 
HOLD CHAR TEMPORARILY 
RESTORE PAGEl 

AND ALLOW IRQ AGAIN 
TRASH SAVED AC 

MAKE CHAR GET RESTORED TO AC 
=>DONe (ALWAYS TAKEN) 



RESTORE CHARACTER 
(LEAVE ON STACK) 
LOCK INTERRUPTS WHILE 

THE SCREENHDLES ARE WRONG 
HOLD THE CHAR TEMPORARILY 
ASSUME PAGE2 (EVENS) 
=>IT IS 
ODDS GO TO PAGEl 

GET CHAR TO BE STORED 
STUFF ONTO SCREEN 
RESTORE PAGEl 

AND ALLOW IRQ AGAIN 
=>DDNE (ALWAYS TAKEN) 



GET CURSOR HOR I 2 
=>STORE IT 

TRASH SAVED CHAR 
PICK THE CHARACTER 
SAVE CHAR FOR RESTORE 
DONE (ALWAYS TAKEN) 



.GET THE CHAI^ACTER 
-. (LEAVE ON STACK) 
i STUFF ONTO SCREEN 



i RESTORE AC 
, RESTORE Y 



NAME 

FUNCTION 

INPUT 

OUTPUT 

VOLATELE 

CALLS 



ESCDN 

TURN ON 'ESCAPE' CURSOR 
NONE 

' CHAR ' =0R I G I NAL CHAR 
NOTHING 
PICK, STORCHAR 



182 I 

183 

184 

185 

186 

187 

188 

189 

190 

191 

192 ■ 

193 ■ 
194 
195 
196 
197 ■ 
198 
199 ■ 
200 
201 I 
202 
203 
204 
205 
206 
207 I 
208 
209 
210 
211 
212 



EQU 
PHA 
TYA 
PHA 
LDY 
JSR 
STA 
AND 
EOR 
JMP 



; SAVE AC 
; AND Y 

OURCH -. GET CH 

PICK i GET ORIGINAL CHARACTER 

CH«? i AND REMEMBER FOR ESCGFF 

#S80 iSAVE NORMAL/ INVERSE BIT 

lt«AB i MAKE IT AN INVERSE '+' 

ESCRET i RETURN VIA SIMILAR CODE 



NAME 

FUNCTION 

INPUT 

OUTPUT 

VOLATILE: 

CALLS 



ESCOFF 

TURN OFF 'ESCAPE' CURSOR 
'CHAR'=ORIGINAL CHAR 
NONE 
NOTHING 
STORCHAR 



EQU * 

PHA 

TYA 

PHA 

LDY OURCH 

LDA CHAR 

EQU * 

BIT SEV 

JBR SCREENIT 

PLA 

TAY 

PLA 



i SAVE AC 
i AND Y 

i GET CH 

;GET ORIGINAL CHARACTER 

i USED BY ESCON 

i AND PUT IT BACK 

i EXACTLY AS IT UAS 

i RESTORE Y 

; AND AC 
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CF77i 60 
CF7a: 






213 
214 






RTS 




















CF7B: 






219 


« 


NAFE 


COPYROM 




CF78: 






216 


* 


FUNCTION 


COPY 


FG ROM TO LCARD 


CF7a: 






217 


« 


INPUT 


NOTHING 




CF7a: 






21B 


# 


VOLATILE 


X,Y 






CF7a: 






219 


« 


CALLS 


NOTHING 




CF78: 






220 


— 


















CF78: 






231 


« 










CF78; 




CF7a 


222 


CDPYRDM 


EQU 


« 




CF78: 48 






223 






PHA 




1 SAVE AC 


CF79: 08 






224 






PHP 




1 ENSURE IRQ INHIBITED 


CF7A: 78 






225 






SEI 




i WHILE COPYING ROM 


CF7B: 






226 


» 










CF7B: AD 


11 


CO 


227 






LDA 


RDLCBNKS 


;GET BANK2 


CF7E; 48 






22B 






PHA 






CF7F: 






229 


* 










CF7F: AE 


12 


CO 


230 






LDX 


RDLCRAM 


i AND RAM FLAGS 


CF8a: AD 


Bl 


CO 


231 






LDA 


»C081 


iSET READ-ROM 


CF85: AD 


81 


CO 


232 






LDA 


*C081 


i WRITE-RAM MODE 


CFQS: 






233 


* 










CF8G: AO 


00 




234 






LDY 


#0 




CF8A: A9 


F8 




233 






LDA 


#«F8 




CFSCiBS 


37 




236 






STA 


CSWH 


J USE HOOK FOR MOVE 


CFSE: A5 


3& 




237 






LDA 


CSWL 


i PRESERVE LO BYTE 


CF90: 4B 






238 






PHA 






CF91: A9 


00 




239 






LDA 


*0 




CF93: 85 


36 




240 






STA 


CSWL 




CF95: 




CF95 


241 


CDPYR0M2 


EQU 


« 


i COPY ONLY PATCHED PAGES 


CF95: Bl 


36 




242 






LDA 


(CSWL). Y 


i MOVE THE ROM 


CF97;91 


36 




243 






STA 


(CSWL), Y 




CF99: C8 






244 






I NY 






CF9A: DO 


F9 


CF95 


245 






DNE 


CDPYR0M2 




CF9C:E6 


37 




246 






INC 


CSWH 




CF9E: DO 


F5 


CF95 


247 






BNE 


C0PYR0M2 




CFAO: 






248 


» 










CFAO: 68 






249 






PLA 




i RESTORE THE 


CFAI: 85 


36 




250 






STA 


CSWL 


i HOOK 


CFA3: A9 


03 




251 






LDA 


tt<CNOO 




CFA5: 85 


37 




252 






STA 


CSWH 




CFA7: 






253 


* 










CFA7: 68 






254 






PLA 




1 WHICH LC BANK? 


CFAS; 10 


OF 


CFB9 


255 






BPL 


LCBl 


; =>BANK1 


CFAA: BA 






256 






TXA 




i RAM OR ROM READ? 


CFAB: 10 


06 


CFBS 


257 






BPL 


LCB2H0M 


i =>RDM 


CFAD: AD 


80 


CO 


258 






LDA 


SC080 


-. BANK2, RAM 


CFBO: 4C 


C5 


CF 


259 






JMP 


COPYRET 




CFB3: AD 


81 


CO 


260 


LCB2RaM 


LDA 


*C081 


-. BANK2. ROM 


CFB6: 4C 


C5 


CF 


261 






JMP 


COPYRET 




CFB9: BA 






262 


LCBl 


TXA 




; RAM OR ROM READ? 


CFBA: 10 


06 


CFC2 


263 






BPL 


LCBIROM 


; =>ROM 


CFBC: AD 


88 


CO 


264 






LDA 


*C088 


i EANKl, RAM 


CFBF: 4C 


C5 


CF 


265 






JMP 


COPYRET 




CFCa: AD 


89 


CO 


266 


LCBIROM 


LDA 


»C089 


i BANK I.ROM 


CFC5: 






267 


« 










CFC5: 




CFC5 


268 


COPYRET 


EQU 


ft 




CFC5:28 






269 






PLP 




j RESTORE IRQ STATE NOW 


CFC6: 68 






270 






PLA 




; AND AC 


CFC7:60 

CFCB: 
CFCB: 






271 

272 
273 






RTS 










7 


NAME 


PSETUP 




CFCB: 






274 


« 


FUNCTION 


SETUP 


ZP FOR PASCAL 


CFCB: 






275 


* 


INPUT 


NONE 






CFC8: 






276 


« 


OUTPUT 


NONE 






CFCB: 






277 


* 


VOLATILE 


AC 






CFCB; 






278 


4 


CALLS 


NOTHING 




CFCB: 






279 






















CFCB: 






280 


« 










CFCB: 




CFC8 


281 


P SET UP 


EQU 


* 




CFC8: AD 


FB 


04 


282 






LDA 


MODE 


i TRANSPARENT MODE? 


CFCB: 29 


01 




283 






AND 


*M, TRANS 




CFCD: DO 


03 


CFD2 


284 






BNE 


PSETUP2 


i=>YES- TRUST WINDOW 


CFCF; 20 


90 


CD 


285 






JSR 


FULLBO 


i SET FULL BOCDL WINDOW 


CFD2: 






286 


» 










CFD2: 




CFD2 


287 


P SETUP 2 


EQU 


* 




CFD2: A9 


FF 




288 






LDA 


#255 




CFD4:a5 


32 




289 






STA 


INVFLG 


i ASSUME NORMAL MODE 


CFD6: 






290 


# 










CFD6: AD 


FD 


04 


291 






LDA 


MODE 




CFD9: 29 


04 




292 






AND 


#M VMDDE 




CFDB: FO 


03 


CFDF 


293 






BEQ 


PSETUPRET 


i=>IT'S NORMAL 


CFDD; 46 


32 




294 






LBR 


INVFLG 


iMAKE IT INVERSE 


CFDF; 






295 


«■ 










CFDF: 




CFDF 


296 


PSETUPRET 


EQU 


« 




CFDF AD 


7B 


07 


297 






LDA 


OLDBASL 


i SET UP BASE ADDRESS 


CFE2: 85 


28 




298 






STA 


BASL 




CFE4: AD 


FB 


07 


299 






LDA 


OLDBASH 




CFE7: 85 


29 




300 






STA 


BASH 




CFE9: 60 

CFEA: 






301 
302 






RTS 




















CFEA: 






303 


* 


NOTE: EN 


TRIES t 


-7 OF THESE 


TABLES 
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CFEA: 


304 


* 


ARE NOT 


USED. 


THUS THERE ARE 


CFEA: 


303 


• 


SOME 


OTHER VALUE8 STUFFED IN. 


CFEA: 


306 


* 










CFEA: 28 


307 


F. 


TABLE 




DFB 


>F. CLREOP-l 


CFEB: 42 


308 








DFB 


>F. HOME-J 


CFEC:4C 


309 








DFB 


>F. SCROLL-i 


CFEO: 7C 


310 








DFB 


>F. CLREOL-1 


CFEE: "JB 


311 








DFB 


>F. CLEOLZ-1 


CFEF: E9 


312 








DFB 


>B. RESET- 1 1 USE SAME RESET 


CFFO:FF 01 


313 


PLUSniNUSl 


DFB 


-1, 1 1 SCROLL USES THIS 


CFF2: B9 


314 








DFB 


>F. SETWND-1 


CFF3: 


315 


* 










CFF3: EO 


314 


B. 


TABLE 




DFB 


>B. CLREOP-l 


CFF4: EC 


317 








DFB 


>B. HOME-l 


CFF5: CC 


318 








DFB 


>B. SCROLL-1 


CFF6: D2 


319 








DFB 


>B. CLREOL-1 


CFF7: D8 


320 








DFB 


>B. CLEOLZ-1 


CFFS: E9 


321 








DFB 


>B,RESET-1 i USE SAME RESET 


CFF9: 23 22 


322 


WNDTAB 




DFB 


MNDBTM, UNDTOP i SCROLL USES THIS 


CFFB;E6 


323 








DFB 


>B. SETWND-1 


CFFC:00 


324 








DFB 


iAyoID CFFF PIPELINi 


CFFD: CFFD 15 


ZZEND 




EOU 


• 
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80-Column Symbol Table, 
Sorted by Symbol 



3B 


AlH 


3C 


AIL 


3F 


A2H 


3E 


A2L 


43 


A4H 


42 


A4L 


CE13 


ATEFORl 


CEOA 


ATEFOR 


CA02 


B. CANLIT 


C9DF 


B. CHKCAN 


C1D9 


B CLEOLZ 


C1D3 


B. CLREGL 


ClEl 


B. CLREDP 


C26E 


B. ESCFIX 


C272 


S. ESCFIX2 


C27A 


B, ESCF1X3 


CAOA 


8, FIXCHR 


C9F7 


B. FLIP 


C1A4 


B, FUNCO 


ClOE 


B. FUNCNE 


?C100 


B. FUNC 


C211 


B, FUNCl 


C107 


0. FUNCNK 


C20E 


B. CETCH 


CIED 


B. HOME 


C905 


B. INPUT 


CA24 


B. INRET 


C28B 


B, KEYIN 


CS9C 


B. KEYIN2 


C9C6 


B, NOPICK 


CllF 


B OLDFUNC 


ClEA 


B. RESET 


C234 


B RESETX 


CICD 


B. SCROLL 


C221 


B. SETWND2 


C219 


B. SETWNDX 


C1E7 


B. SETMND 


CFF3 


B- TABLE 


CIFF 


B. VECTOR 


2Q 


BAS2H 


3fl 


8AS2L 


CB54 


BASCALCZ 


CB51 


BASCALC 


CB7E 


BASCLC3 


CB97 


BASCLCX 


29 


BASH 


C317 


BASICENT 


C336 


BAS1CENT2 


C803 


BASICINIT 


C305 


BASICIN 


70300 


BASIC INT 


C307 


BASICGUT 


2B 


BASL 


CBC3 


BELLS 


ClOO 


BFUNCPG 


C831 


BINITIA 


C816 


BINITl 


CS50 


BINIT2 


CSF6 


BINPUT 


caE2 


BIORET 


C25S 


BLAST 


CB96 


BOUT 


C8CC 


BPNCTL 


C8A1 


BPRINT 


■?CBE2 


BS40 


CB5B 


BSCLCIA 


CB55 


BSCLCl 


CB6D 


SSCLC2 


CQEB 


BSDONE 


C398 


COl 


C3A3 


C03 


CB74 


CBB2 


CS7E 


CBB3 


C890 


C8B4 


C866 


C8BASIC 


07FB 


CBSLOT 


21 


CH 


067B 


CHAR 


C85D 


CLEAR IT 


C181 


CLEDL2 


C12D 


CLEOPl 


COOO 


CLRBOCGL 


COOC 


CLRBOVID 


COOE 


CLRALTCHAR 


CE9B 


CLRHALF2 


CE91 


CLRHALF 


C300 


CNOO 


CFC3 


CDPYRET 


CF95 


CDPYRGM2 


CF78 


COPYROM 


37 


CSUH 


36 


CSWL 


CC7B 


CTLADH 


CC5F 


CTLADL 


CB99 


CTLCHAR 


CBAB 


CTLCHARX 


CBAE 


CTLGO 


CBB2 


CTLRET 


CBB6 


CTLXFER 


23 


cv 


0261 


01 AGS 


CEA3 


D04B 


C929 


E5C1 


C92B 


ESC2 


C935 


ESC 3 


C91B 


ESCAPING 


C983 


ESCCHAR 


C2B0 


ESCIN 


C960 


ESC NONE 


OOH 


ESCNUM 


CF65 


ESC OFF 


CF32 


ESC ON 


C2B4 


ESC OUT 


CF6E 


ESCRET 


C943 


ESC SPEC 


C9S4 


ESCSPEC2 


C963 


E5CSPEC3 


C972 


ESCTAB 


7FBC1 


F. BASCALC 


C19C 


F CLEDLZ 


C17D 


F. CLREGL 


C129 


F. CLREOP 


ClAl 


F. GORET 


C143 


F. HOME 


C2F1 


F. RETl 


C2EB 


F. RETURN 


C14D 


F. SCROLL 


CIBA 


F. SETWND 


CFEA 


F. TABLE 


FC22 


F. VTAB 


FC24 


F. VTABZ 


FBB3 


F8VERSI0N 


CE6F 


FORATEl 


CE63 


FORATE 


CD9B 


FULLSO 


FD29 


FUNCEXIT 


CE22 


GET84 


CBIB 


GETK2 


CB15 


OETKEY 


CA27 


SETPRIDR 


CAAF 


CETY 


C22E 


OOBACK 


06 


QOODFa 


C27D 


eORETN 


C2B5 


OOTKEY 


CA49 


CPX 


C813 


HANG 


C2CC 


IKl 


C2D5 


IK2A 


C2CE 


IK2 


C2DB 


IK3 


CEDD 


INVERT 


32 


INVFLC 


FF5B 


lORTS 


C34B 


JBASINIT 


C34B 


JPINIT 


C351 


JPREAD 


C35D 


JPSTAT 


C357 


JP WRITE 


COlO 


KBDSTRB 


COOO 


KBD 


CBB4 


KBDWAIT 


C2EA 


KDRET 


7C2E6 


RDRETN 


C2E9 


KDRETY 


C2C6 


KEYDLV 


39 


KSWH 


36 


KSWL 


CFB9 


LCD! 


CFC2 


LCBIROM 


CFB3 


LCB2RaM 


40 


M. BINPUT 


80 


M. ESCR 


08 


M. COXY 


01 


M. IRQ 


10 


n, LIT 


02 


M. PASl.O 


20 


M, PASCAL 


01 


M. TRANS 


04 


M, VMODE 


04FB 


MODE 


C378 


f10VEC2H 


C3B0 


MOVELOQP 


C3AC 


MOVERET 


C37E 


MOVESTRT 


C363 


MOVE 


CCDD 


MSCRLO 


CCEl 


MSCRLl 


CCF9 


MSCRLa 


CD02 


MSCRLRET 


CDIO 


MSCRLRTS 


C9B7 


NDESC 


C1C5 


NO I 


C8C0 


NOMA IT 


CSSA 


NXTAl 


07FB 


OLDBASH 


077B 


OLDBASL 


047B 


OLDCH 


CD09 


ONEMDRE 


057B 


OURCH 


05FB 


OURCV 


CFOl 


PICK 


CA62 




CA4A 


PlNITl. 


CA51 


PINIT2 


CA4F 


PINIT 


CFFO 


PLUSMINUSl 


CA74 


PREAD 


CA8A 


PREADRET2 


CFD2 


P8ETUP2 


CFC8 


PSETUP 


CFDF 


PSETUPRET 


C99E 


PSTATU82 


C994 


P STATUS 


C9B0 


PSTATUS3 


C9B4 


PSTATUS4 


7CA9E 


PWRITE2 


CACB 


P WRITES 


CASE 


PWRITE 


CAEB 


PWRITE4 


CBOF 


PWRITERET 


CB09 


PMWRAP 


COCO 


QUIT2 


CDAA 


QUIT 


COIB 


RDBOCOL 


COIF 


RD80VID 


C003 


RDCARDRAM 


7FD0C 


RDKEY 


coil 


RDLCBNK2 


C012 


RDLCRAM 


C002 


RDnAINRAM 


COIC 


RDPACE2 


C013 


RDRAMRD 


C014 


RDRAHURT 


COIA 


RDTEXT 


7C019 


RDVBLBAR 


C264 


RE8ETRET 


4F 


RNDH 


4E 


RNDL 


CEOl 


SCR40RET 


CDEA 


SCR 40 


CE3E 


SCRBO 


CE59 


SCR80RET 


CF06 


SCREEN IT 


C153 


SCRLl 


C169 


SCRL2 


C172 


SCRL3 


CCDl 


SCRLSUB 


CFIE 


SCRN2 


CF37 


SCRN3 


CF40 


SCRN40 


CE32 


SCRN48 


CDDB 


SCRNB4 


CESS 


SCRNRET 


CCAE 


8CR0LL1 


CCBS 


SCR0LL2 


CCAA 


8CR0LLDN 


CCA4 


SCRDLLUP 


COOl 


SET80CDL 


COOD 


SET80VID 


COOF 


BETALTCHAR 


C009 


SETALTZP 


C3E0 


SETCB 


CEAF 


SETCH 


CED9 


SETCHRTS 


?C007 


SETINTCXROM 


FEB9 


SETKBD 


COOB 


SETSL0TC3R0M 


COOS 


8ETSTDZP 


FE93 


8ETVID 


CFOO 


SEV 


FC75 


SNIFFIR9 


C030 


8PKR 


CADC 


STARTXY 


CB4S 


STAY2 


CB4D 


STAY80 


CEF9 


8T0R2 


CF4A 


ST0R4O 


CF2A 


STOR80 


CEF2 


STORCHAR 


CF4E 


8TPKEXIT 


CC59 


STUFF I NV 


0478 


TEMPI 


00 


TEST 


CB24 


TESTCARD 


?CB4E 


TESTFAIL 


C094 


TXTPACEl 


C09S 


TXTPA0E2 


CBCF 


UAIT 


CBDO 


UAIT2 


CBDl 


WAIT3 


23 


UNDBTM 


20 


UNDLFT 


CFF9 


WNDTAB 


22 


WNDTOP 


21 


UNDUDTH 


COOS 


UR CAR DRAM 


C004 


WRnAINRAM 


CBBC 


X. BELL 


CBDB 


X. BS 


C2F& 


X. CLE0L2 


C2F4 


X. CLEDLZ 


CCOC 


X. CRRET 


CBEC 


X. CR 
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CBFD 


X, CRPAS 


CD64 


X. DCIB 


CD76 


X. DCIRTS 


CDS? 


X. 0C1 


CDSB 


X. DC2B 


CD9A 


X, DC2RET 


CD77 


X. DC2 


CCOD 


X, EM 


CD42 


X.. FF 


CC33 


X. F3RET 


CC26 


X. FS 


CD4a 


X. GS 


CD54 


X. GS2 


CD4E 


X- GSEDLZ 


CC91 


X- LF 


CC9E 


X, LF2 


CD20 


X. LFRET 


CD70 


X. NAK 


CD9A 


X. NAKRET 


CDll 


X. SCRLRET 


CD17 


X. SCRLRET2 


CC52 


X. SI 


CC49 


X. SO 


?CC1D 


X, SUB80 


CCIF 


X. SUBLP 


CCIA 


X. SUB 


CC34 


X-US 


CC40 


X. USl 


CC45 


X. US2 


CC4a 


X- USRET 


CD23 


X. VT 


CD2C 


X. VTLOOP 


CD32 


X. VTNEXT 


06FB 


XCDORD 


C3B0 


XFER 


C3CD 


XFERAZP 


C3C5 


XFERC2M 


C3DC 


XFER5ZP 


IF 


Y5AV1 


? 02 


ZSPAREC3 



?CFFD ZZEND 

»* SUCCESSFUL ASSEMBLY : = NO ERRORS 

»* ASSEMBLER CREATED ON 05-JAN-S2 000004 

»* TOTAL LINES ASSEMBLED 2419 

*♦ FREE SPACE PAGE COUNT 49 

2 EQUATES 

3 BFUNC 

4 C3BPACE 

5 C8SPACE 

6 BPRINT 

7 BINPUT 

8 PINIT 

9 PREAD 

10 PWRITE 

11 5UBS1 
13 SUBS2 
13 SUBS3 
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Sorted by Address 



00 TEST 


01 


M. TRANS 


01 n. IRQ 


02 M. PASl. 


? 02 ZSPAREC2 


04 


M. VMODE 


06 GOODFS 


08 M. GOXY 


10 M. LIT 


0011 


ESCNUM 


IF YSAVl 


20 n. PASCAL 


20 WNDLFT 


21 


WNDWDTH 


22 WNDTDP 


23 WNDBTM 


24 CH 


25 


CV 


28 BASL 


29 BASH 


2A 8AS2L 


2B 


BA52H 


32 INVFLO 


36 CSWL 


37 CSWH 


38 


KSWL 


39 KSWH 


3C AIL 


3D AlH 


3E 


A2L 


3F A2H 


40 M. BINPUT 


42 A4L 


43 


A4H 


4£ RNDL 


4F RNDH 


80 M. ESCR 


0478 


TEMPI 


047B OLDCH 


04FB MODE 


057B OURCH 


05FB 


OURCV 


067B CHAR 


06FB XCOORD 


077B OLDBASL 


07F8 


CSSLOT 


07FB OLDBASH 


COOO CLR80C0L 


COOO KBD 


COOl 


SETSOCOL 


C002 RDMAINRAM 


C003 RDCARDRAM 


C004 WRMAINRAM 


C005 


WRCARDRAM 


?C007 SETINTCXROM 


COOB SETSTDZP 


C009 SETALTZP 


COOB 


SETSLOTCSROM 


COOC CLRBOyiD 


COOD SET80VID 


COOE CLRALTCHAR 


COOF 


SETALTCHAR 


COlO KBDSTRB 


coil RDLCBNK.2 


C012 RDLCRAM 


C013 


RDRAMRD 


C014 RDRAMWRT 


COIS RD80C0L 


?C019 RDVBLBAR 


COIA 


R DTE XT 


COIC RDPAGE2 


COIF RD80VID 


C030 SPKR 


C054 


TXTPAGEl 


C053 TXTPAGE2 


70100 B.FUNC 


ClOO BFUNCPG 


CI07 


B. FUNCNK 


ClOE B. FUNCNE 


CllF B. OLDFUNC 


C129 F. CLREOP 


C12D 


CLEOPl 


CI 43 F. HOME 


C14D F. SCROLL 


CI 53 SCRLl 


C169 


SCRL2 


CI 72 SCRL3 


C17D F. CLREOL 


ClSl CLEQLS 


C18A 


F, SETWND 


C19C F. CLEDLZ 


ClAl F. GORET 


C1A4 B. FUNCO 


C1C5 


NDI 


CICD B. SCROLL 


C1D3 B. CLREOL 


CID-? B. CLEOLZ 


ClEl 


B. CLREOP 


CIE7 B. SETWND 


ClEA B. RESET 


CIED B. HOME 


CIFF 


B. VECTOR 


C20E B. GETCH 


C211 B.FUNCl 


C219 fl. SETWNDX 


C221 


B, SETWND2 


C22E GOBACK 


C234 B. RE5ETX 


C252 BLAST 


C261 


DIAGS 


C264 RESETRET 


C26E B. ESCFIX 


C272 B-ESCFIX2 


C27A 


B.ESCFIX3 


C27D fiORETN 


C280 ESC IN 


C284 ESC OUT 


0288 


B. KEYIN 


C29C B. KEYIN2 


C2BS OOTKEY 


C2C6 KEYDLY 


C2CC 


IKl 


C2CE IK2 


C2D3 IK2A 


C2DB IK3 


?C2E6 


KDRETN 


C2E9 KDRETY 


C2EA KDRET 


C2EB F. RETURN 


C2F1 


F, RETl 


C2F4 X. CLEOLZ 


C2F6 X. CLE0L2 


C300 CNOO 


7C300 


BASICINT 


C303 BASICIN 


C307 BASICOUT 


C317 BASrCENT 


C336 


BASICENT2 


C34e JBASINIT 


C34B JPINIT 


C351 JPREAD 


C357 


JPWRITE 


C35D JPSTAT 


C363 MOVE 


C378 MDVEC2M 


C37E 


MDVESTRT 


C380 MOVELDOP 


C38A NXTAl 


C398 GDI 


C3A3 


C03 


C3AC MOVERET 


C3B0 XFER 


C3C5 XFERC2M 


C3CD 


XFERA2P 


C3DC XFERSZP 


C3EB SETC8 


C803 BASICINIT 


C813 


HANG 


C816 BlNITl 


C831 BINITIA 


CS50 BIN ITS 


C85D 


CLEAR IT 


C866 C8BASIC 


0874 CaB2 


CS7E C8B3 


C890 


CeQ4 


C896 BOUT 


C8A1 BPRINT 


CBB4 K0DWAIT 


C8C0 


NOWAIT 


C8CC BPNCTL 


C8E2 BIDRET 


CBF6 BINPUT 


C905 


B. INPUT 


C918 ESCAPING 


C929 ESCl 


C92B ESC 2 


C935 


ESC 3 


C94S ESCSPEC 


C954 ESCSPEC2 


C960 ESCNONE 


C963 


ESC SPEC 3 


C972 ESCTAB 


C9S3 ESCCHAR 


C994 PSTATUS 


C99E 


PSTATUS2 


C9B0 PSTATUS3 


C9B4 PSTATUS4 


C9B7 NOESC 


C9C6 


B. NOPICK 


C9DF B. CHKCAN 


C9F7 B. FLIP 


CA02 B. CANLIT 


CAOA 


B. FIXCHR 


CA24 B. INRET 


CA27 GETPRIOR 


CA49 GPX 


CA4A 


PINITl.O 


CA4F PI NIT 


CA51 PINIT2 


CA62 PI GOOD 


CA74 


PREAD 


CA8A PREADRET2 


CASE PWRITE 


?CA9E PWRITE2 


CAAF 


GETY 


CACB PWRITE3 


CADC START XY 


CAEB PWRITE4 


CD09 


PWWRAP 


CaOF PWRITERET 


CB13 GETKEY 


CBIB 0ETK2 


CB24 


TESTCARD 


CB48 STAY2 


CB4D STAYSO 


7CB4E TESTFAIL 


CB51 


BASCALC 


CB94 BASCALC2 


CB55 BSCLCl 


CB5B BSCLCIA 


CB6D 


BSCLC2 


CB7E BASCLC3 


CB97 BASCLCX 


CB99 CTLCHAR 


CBAB 


CTLCHAR X 


CBAE CTLGO 


C8B2 CTLRET 


CBB6 CTLXFER 


CBBC 


X. BELL 


CBC3 BELL2 


CBCF WAIT 


CBDO WAITS 


CBDl 


WAIT3 


CBDB X. BS 


?CBE2 BS40 


CBEB BSDONE 


CBEC 


X. CR 


CBFD X. CRPAS 


CCOC X. CRRET 


CCOD X, EM 


CCIA 


X. SUB 


7CC1D X. SUBSO 


CCIF X. SUBLP 


CC26 X. FS 


CC33 


X. FSRET 


CC34 X. US 


CC40 X.USI 


CC45 X, US2 


CC4S 


X. USRET 


CC49 X. SO 


CC32 X. SI 


CC59 STUFFINV 


CC5F 


CTLADL 


CC7a CTLADH 


CC91 X. LF 


CC9E X. LF2 


CCA4 


SCRGLLUP 


CCAA SCROLLDN 


CCAE SCROLL 1 


CCB8 SCR0LL2 


CCDl 


SCRLSUB 


CCDD MSCRLO 


CCEl MSCRLl 


CCF9 MSCRL2 


CD02 


MSCRLRET 


CD09 DNEMORE 


CDIO MSCRLRTS 


CDIl X. SCRLRET 


CD17 


X. SCRLRET2 


CD20 X. LFRET 


CD23 X. VT 


CD2C X. VTLOOP 


CD32 


X. VTNEXT 


CD42 X. FF 


CD4Q X. GS 


CD4E X. GSEOLZ 


CD54 


X. G52 


CD59 X.DCl 


CD64 X. DC IB 


CD76 X. DCIRTS 


CD77 


X. DC2 


CD88 X.DC2B 


CD90 X. NAK 


CD9A X. NAKRET 


CD9A 


X. DC2RET 


CD9B FULL80 


CDAA QUIT 


CDCO QUIT2 


CDDB 


SCRNa4 


CDEA SCR 40 


CEOl SCR4DRET 


CEOA ATEFQR 


CE13 


ATEFDRl 


CE22 GET84 


CE32 SCRN48 


CE3E SCRBO 


CESS 


SCR80RET 


CE5B SCRNRET 


CE63 FORATE 


CE6F FORATEl 


CE9i 


CLRHALF 


CE9B CLRHALF2 


CEA3 0048 
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CEAF SETCH CED9 5ETCHRTS CEDD INVERT CEF2 STDRCHAR 

CEF9 STORa CFOO BEV CFOl PICK CF06 SCREENIT 

CFIE SCRN2 CF2A STORSO CF37 SCRN3 CF40 SCRN40 

CF4A STaR40 CF4E STPKEXIT CF5a ESCON CF65 ESCOFF 

CF&E ESCRET CF78 COPYROM CF95 C0PYR0M2 CFB3 LCB2R0M 

CFB9 LCBI CFCa LCDIRDM CFC5 COPYRET CFC8 PBETUP 

CF03 PSETUP2 CFDF PSETUPRET CFEA F. TABLE CFFO PLUSMINUBl 
CFF3 B. TABLE CFF9 WNDTAB ?CFFD ZZEND FBB3 FSVERSION 

?FBC1 F. BASCALC FC22 F. VTAB FC24 F. VTABZ FC75 SNIFFIRQ 

7FD0C RDKEV FD29 FUNCEXIT FEB9 SETKBD FE93 SETVID 

FFSB IDRTS 

*• SUCCESSFUL ASSEMBLY : = NO ERRORS 

»» ASSEMBLER CREATED ON 05-JAN-82 000004 

•* TOTAL LINES ASSEMBLED 2421 

»* FREE SPACE PACE COUNT 49 

2 EQUATES 

3 BFUNC 

4 C3SPACE 
9 CBSPACE 

6 BPRINT 

7 BINPUT 
B PINIT 
9 PREAD 

10 PWRITE 

11 SUBSl 

12 SUBS2 

13 SUB 53 



54 Monitor ROM Listings 



gcipplG computer 



20525 Mariani Avenue 
Cupe rtino. CA 95014 
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